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CUVANT INAINTE 


Cu cativa ani in urma (nu foarte multi), am intrat intamplator in posesia produsului Visual Basic 
(pe atunci, versiunea 3.0) şi merită spus că prima impresie a fost foarte bună. Citeam undeva că este 
instrumentul folosit de mai bine de un milion de programatori de aplicaţii Windows (dar, făcând o 
comparaţie cam căznită, Windows-ul acelor vremuri se găsea în perioada revoluţiei industriale...). 
Milionul cu pricina a fost depăşit de mult. Pentru utilizatorii de microcalculatoare, Visual Basic nu mai 
constituie o noutate (vorbim astăzi de versiunea 6.0, dar şi de noua versiune .NET) şi totuşi rămâne o 
permanentă provocare pentru multi aspiranti la statutul de programator. Firma Microsoft îşi 
supranumeste produsul ,, the inost productive toolfor developing client-server solutions" şi nu credem 
ca acesta este doar un slogan publicitar. Tandemul putere - simplitate este principala ratiune a 
popularității limbajului. Această popularitate, dar si vastitatea pieţei aplicaţiilor Windows au constituit 
două motive pentru care s-a mai născut o carte de Visual Basic, cea pe care tocmai aţi deschis-o. 

Fiind un mediu de dezvoltare cu care se poate lucra la diferite niveluri de performanţă, cărțile „de 
Visual Basic” se încadrează pe paliere variate, de la (ne)initiere la „categoria profesionist”. Unde se 
situează această carte? Mărturisim că undeva între cele două tendinţe. Abordarea merge de la chestiuni 
foarte simple la subiecte ceva mai pretentioase. Simplitatea constă în faptul că nu trebuie neapărat să 
mai fi programat înainte de a parcurge cartea; aveţi însă şanse să deveniți programator după... Fireşte 
că sunt binevenite noţiuni elementare în domeniul programării - ele vor reduce efortul necesar 
achiziţiei cunoştinţelor din această carte şi nevoia de lecturi suplimentare în domeniu. Au fost atinse şi 
chestiuni de fineţe, cum ar fi proiectarea propriilor componente ActiveX, care trebuie să recunoaştem 
că depăşesc stadiul de începător. Deşi am încercat să atingem cât mai multe dintre facilităţile mediului 
Visual Basic, lucrarea de faţă este departe de aşa-numitele manuale de referință. Este (sperăm) 
prietenoasă şi poate pe ici, pe colo mai explicită (a se citi „prozaică”) decât respectivele manuale de 
referință, pe care va sfatuim să nu le ignorati, fie ele în format clasic sau electronic. 

Pentru pătrunderea în universul Visual Basic, am ales varianta unei prezentări graduale (ceea ce 


explică numărul mare de capitole). Explicatiile şi detaliile oferite pe parcurs, însoţite de un mare număr 
de imagini (care, precum se ştie, vorbesc cât o mie de cuvinte), vor fi, sperăm, în avantajul 
începătorilor, şi nu numai al lor... O anexă destul de consistentă prezintă integral (indicaţii de 
proiectare şi implementare, aspect vizual al componentelor, cod-sursă) o aplicaţie de gestiune care (în 
mod surprinzător...) a şi funcţionat. 

Cui se adresează această carte ? Ei bine, studenţilor specializării Informatică economică de la 
Facultatea de Economie şi Administrarea Afacerilor din cadrul Universităţii ieşene (ştiu ei de ce); altor 
studenţi, elevi si, de ce nu, oricărui pasionat într-ale programării. Profesioniştii o pot răsfoi şi ei, 
desprinzând poate concluzii şi sugestii; la urma urmei, feed-back-ul cititorului (seamăn al nostru, 
frate...) este factorul hotărâtor care-i determină pe scriitori să-şi revizuiască lucrările, nu-i aşa? 

In încheiere, mulţumim tuturor celor care prin sprijinul acordat au făcut posibilă (sub toate 
aspectele) apariţia acestei lucrări. Nu-i mai cităm noi, se ştiu ei... 

Vă dorim lectură plăcută. 


Autorii laşi, 
august 2001 
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Anul 2001 a marcat cea de-a zecea aniversare a produsului Visual Basic (VB), realizat de 
Microsoft. Acest produs a fost conceput în ideea de a oferi programatorilor de BASIC posibilitatea de 
a realiza aplicaţii Windows utilizând un mediu grafic intuitiv. La momentul respectiv (1991), 
programarea aplicaţiilor Windows era o sarcină complicată şi consumatoare de timp, dar uneltele 
oferite de Visual Basic au simplificat acest proces, atrăgând un număr mare de utilizatori. 

Visual Basic este un mediu integrat de dezvoltare care asigură: 


> scrierea, editarea şi testarea aplicaţiilor; 

> distribuirea aplicaţiilor: 

> scrierea şi compilarea fişierelor Help; 

> crearea de controale ActiveX sTaplicatii cu valenţe Internet. 


în sens traditional*un mediu de dezvoltare este o suită de` instrumente care sprijină programatorul 
în realizarea unei aplicaţii. Printre aceste unelte se includ; un editor de texte pentru scrierea codului- 
sursă într-un limbaj dat, un compilator (sau interpretor) pentru limbajul respectiv şi alte facilităţi 
pentru testarea şi verificarea aplicaţiei (de natura depanatoarelor). O dată cu perfectionarile in 
domeniul hardware-ului şi cu creşterea atât a numărului de limbaje şi de variante ale acestora, cât şi a 
numărului de dezvoltatori de aplicaţii, aceste instrumente s-au diversificat şi s-au îmbunătăţit. 
Existenţa Visual Basic şi a altor medii de dezvoltare asemănătoare a devenit posibilă datorită naturii 
sistemului de operare Windows. 

Programarea în medii Windows sau similare cere astăzi mai mult decât un limbaj de programare - 
devin necesare instrumente de dezvoltare mai puternice şi totodată mai productive, care să exploateze 
caracteristicile acestor sisteme de operare (grafică, multimedia, interactivitate, multiprelucrare). 
Visual Basic vine în întâmpinarea acestor cerinţe. 

Termenul de „Visual” din denumirea produsului desemnează modul în care se concepe o 
aplicaţie: programatorul proiectează interfaţa folosind nişte machete ale ecranului (denumite form-uri 
sau formulare), pe care adaugă diferite obiecte de control (controale, pe scurt) de natura casetelor de 
text, a butoanelor de comandă, a butoanelor de opţiune, a listelor, a meniurilor şi a altor elemente cu 
care ne-au familiarizat aplicaţiile Windows. Urmează întregirea funcţionalităţii programului prin 
scrierea de cod folosind limbajul de programare propriu. 

Ca limbaj de programare, Visual Basic este un dialect BASIC. Este vorba despre un limbaj 


procedural simplu, creat în 1964 cu intenţia unui limbaj orientat către începători, mult mai uşor de 
înţeles şi utilizat decât FORTRAN sau COBOL. Cam la fel au stat lucrurile şi cu limbajul Pascal, 
inventat în 1971, care a stat la baza unui alt mediu de dezvoltare foarte popular, Delphi (produs de 
firma Borland/Inprise). Sunt două cazuri în care limbaje de programare considerate ,,facile” au 
evoluat în puternice medii de dezvoltare a aplicaţiilor (unii comentatori au rezervele lor...). 

Materialul de faţă se referă la versiunea 6.0 a produsului Visual Basic, aparută în 1998 şi inclusă 
în pachetul de aplicaţii Microsoft Visual Studio. Firma Microsoft nu a fost prea 
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consecventă cu denumirile acestor pachete: versiunea anterioară se numea Developer Studio. 
Uitima versiune (în fază de testare beta la data când scriem aceste rânduri) se numeşte Visual Studio 
.NET şi conţine Visual Basic 7.0. 

Vispal Basic este disponibil în 3 variante: 

1. Standard Edition, denumită şi ediţia de învăţare, incluzând doar caracteristicile fundamentale, 
dar care sunt suficiente pentru multi dintre utilizatori; 

2. Professional Edition, ce are în plus câteva instrumente puternice pentru: crearea de controale 
ActiveX, programare Internet, crearea de fişiere Help în format Windows, acces îmbunătăţit la 
bazele de date. Este varianta utilizată de majoritatea specialiştilor; 

3. Enterprise Edition, care se distinge prin orientare către aplicaţii client/server şi distribuite. 


Delimitări conceptuale 
Un program este un set de instrucţiuni, scrise într-un anumit limbaj de programare, prin care 
calculatorul este programat să reahzeztTinumite operaţiuni. 

Limbajul de programare este un limbaj artificial, mult mai structurat decât cel natural, capabil a fi 
înţeles atât de om, cât şi de calculator. 

Codul (complet ar Ti codul-sursă) reprezintă un alt nume dat instrucţiunilor scrise într-un 
program. 

Un bug (0_eroare) este o greşeală într-un program. O dată descoperită, eroarea trebuie corectată 
(prin depanare - debug) pentru ca programul să funcționeze corespunzător. 

Termenul“program”’ | 5ite~consT3erarsimilar şi adesea utilizat în locul celui de aplicaţie. Cu toate 
acestea, este recomandată utilizarea termenului „aplicaţie”, mai ales că într-o aplicaţie sunt reunite 
adesea mai multe fişiere (şi nu toate aceste fişiere conţin programe). 

Un proiect este o colecţie de fişiere create de utilizator. în medii precum Visual Basic, proiectul 
reprezintă punctul de plecare al unei aplicaţii Windows. Este de fapt un fel de catalog ce reuneşte mai 
multe fişiere care compun o aplicaţie şi care permite accesarea lor lesnicioasă în scopul avansării către 
versiunea finală. De regulă, din proiect se va genera un program executabil. 

Wizard-ul (asistentul) este o componentă care automatizează anumite sarcini (de exemplu, 
desenarea unei machete de ecran pentru culegerea datelor), prin intermediul unui şir de dialoguri care-l 
ghidează pe utilizator. 

Un compilator este un program auxiliar care traduce codul-sursă (scris de programator) în cod- 
maşină sau executabil (singurul pe care calculatorul îl înţelege nemijlocit). 


Componentele mediului Visual Basic 

în abordarea clasică, rezolvarea unei probleme cu ajutorul calculatorului electronic are loc într-o serie 
de paşi: 

analiza problemei; 

'formularea algoritmului de rezolvare* 

implementarea algoritmului în eod-sursâ (etapa codificării); 

transpunerea codului-sursă în cod executabil; 

testarea şi depanarea aplicaţiei; 

instalarea şi întreţinerea aplicaţiei. 


VVV VV 
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Visual Basic ne sprijină în procesul de realizare a aplicaţiei începând cu etapa a treia din cele 
enumerate mai sus. Astfel, el permite: 

> crearea unei noi aplicaţii (manual sau cu ajutorul VB Application Wizard)-, 

> testarea aplicaţiei şi corectarea eventualelor erori; 

> compilarea şi obţinerea programului executabil; 

distribuirea aplicaţiei (cu utilitarul Package andDeployment Wizard). înainte de a trece la 

realizarea de aplicaţii în Visual Basic, este necesară înţelegerea elementelor specifice mediului de 
dezvoltare - la fel cum înainte de a învăţa să şofezi trebuie să ştii câte ceva despre părţile componente 
ale automobilului. Prin cunoaşterea mediului Visual Basic sunt înţelese principiile fundamentale de 
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Figura 1.1. Ecranul principal al mediului Visual Basic 


Ecranul apare destul de „încărcat” la lansarea Visual Basic (vezi figura 1.1). Utilizatorul are însă 
posibilitatea să-l personalizeze. Astfel, ferestrele se pot redimensiona, închide sau ascunde după 
preferință. Liniile de instrumente sunt gestionate prin afişarea sau ascunderea fiecăreia. Mai mult, 
conținutul fiecărei linii de instrumente poate fi modificat, prin adăugarea sau eliminarea de butoane ce 
corespund diferitelor comenzi. în privința meniului şi a liniilor de instrumente, exploatarea acestora se 
face ca şi în alte aplicaţii Windows. Pe lângă meniu şi liniile de instrumente, apar pe ecran mai multe 
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ferestre, ale căror semnificaţie şi funcționalitate trebuie înţelese pentru a putea începe lucrul în Visual 
Basic. Le vom descrie în continuare. 

O Form-ul (formularul): acolo unde se întâmplă toate 

Form-ul reprezintă zona principală de lucru, corespunzătoare unei ferestre, O astfel de fereastră 
este principalul element de interfaţă al unei aplicaţii create cu Visual Basic, atât prin ea însăşi, cât mai 
ales prin obiectele de control (controalele) care vor fi plasate pe 
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form. La crearea unui form nou, dimensiunile sale sunt relativ mici fata de cele ale ecranului, dar pot fi 
modificate de către utilizator. 

Poziţia pe ecran şi dimensiunile form-ului sunt afişate pe linia de instrumente (în dreapta-sus). 
Dimensiunile elementelor grafice din Visual Basic sunt exprimate într-o unitate de măsură specială 
numită twip. Un twip este a 1440-a parte dintr-un inch şi se consideră cea mai mică unitate de pe ecran 
care poate fi ajustată. Se preferă această unitate convenţională, independentă de rezoluţia ecranului, 
altor unităţi de măsură, cum ar fi pixeli, care depind de performanţele monitorului folosit. Punctul de 
coordonate 0,0 reprezintă colţul din stânga sus al ecranului; primul număr al perechii indică poziţia pe 
abscisă (lăţimea form-ului), iar al doilea poziţia pe ordonată (înălțimea form-ului). Poziţia şi 
dimensiunile form-ului corespund momentului în care aplicaţia rulează. Form-ul reprezintă suportul 
unor elemente de interacţiune cu utilizatorul numite controale, constituind principalul element de 
interfaţă al aplicaţiilor scrise în Visual Basic. 

De precizat că poziţia form-ului şi dimensiunile lui comparativ cu ale ecranului pot fi vizualizate 
şi în fereastra denumită Form Layout (© in figura 1.1). 

Observaţie: codul-sursă nu este afişat în fereastra Form. Această fereastră reuneşte doar 

obiectele interactive ale aplicaţiei (butoane de comandă, etichete, bare de derulare etc.). Pentru a 
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Figura 1.2. Un form Visual Basic 


in figura 1.2 este ilustrat un form ce reprezintă o parte dintr-o aplicaţie scrisă in Visual Basic. în 
fereastră se observă mai multe obiecte de control: etichete (textele statice), casete de text (căsuţele 
albe în care se pot scrie texte sau numere) şi trei butoane de comandă (dreptunghiurile cu aspect de 
ridicare). O aplicaţie se reduce rareori la o singură fereastră de 
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dialog. Ea reuneşte mai multe form-uri, pe care sunt plasate controalele şi pentru care se definesc apoi 

secvenţe de cod corespunzătoare. 
Observaţie: unele aplicaţii, precum Microsoft Word, permit lucrul cu mai multe ferestre, într- 
un mod de lucru special denumit MDI (multiple-document interface). O aplicaţie care lucrează 
doar cu o singură fereastră la un moment dat este denumită aplicaţie SDI (single-document 
interface) - spre exemplu Notepad. Aţi remarcat aici termenul de document, care în aplicaţiile 
Windows desemnează o fereastră în care utilizatorul introduce date ce pot fi salvate ca fişiere şi 
apoi regăsite. Sunt şi form-uri de tip dialog, pe care aplicaţiile Windows le folosesc pentru a prelua 
de la utilizatori diferiţi parametri. Totuşi, aplicaţiile SDI suportă şi lucrul cu mai multe form-uri, 
în sensul că se deschid diverse ferestre de dialog, dar numai una de tip document (vezi figura 1.3). 

jBjncas si mm Miles 


normalul sk 
Rii ife 


meu 


In figura 1.2 este ilustrat un form ce r“ remarcat aici te'menui de document, 
win Visual Basic 


le_sta e de text (căsuţele alt z TnfrodLice fate c „ Sunt si form-yi de tip 

de (textel 

is ce Yer Yass MEAN e comandă, (dreptunghiuri! te pe care ap lica7 de la-utilizatori 
Sa 8 R Fuia. ge, de ca singură. fdreăstra de dial Ë diferi atata) su 

= Tehereare sunt” ideal 2 eo AIG si pentru c = O2- At 


sei © aplicatie care lucrează doar c este 9 


denumită aplicaţie SDI (sgecbame | 


T Stri e. through r Doiible 


strikelhrpugh : P 
aa 


nu i i r DERNIER 

In rana 1.4 se observă aceeaşi aplicație prezentată în figura 1.2, de data aceasta aflată în Tuen 
într-o sesiune Visual Basic (în faza de proiectare sau modificare). în fereastra Form Layout se 
observă dimensiunile şi poziția form-ului denumit Forml. în condițiile unui ecran „aglomerat”, 
această fereastră se poate închide, putând fi reafişată ulterior (prin meniul View | Form Layout 


Window). 
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© Fereastra Toolbox 

„Cutia de scule” (o traducere destul de exactă pentru Toolbox, dar care nu are aceeaşi rezonanţă 
ca în limba engleză, motiv pentru care vom utiliza termenul original, cîtuşi de puţin greu de reţinut) 
conţine reprezentări ale controalelor care se plasează pe form-uri. In figura 1.5 sunt ilustrate 
controalele intrinsece Visual Basic (în versiunea 6.0 sunt 20 de astfel de controale), ce se regăsesc în 
mod implicit în Toolbox. Acestea se pot completa de către utilizator, corespunzător nevoilor sale prin 
comanda Proiect | Components. Modul de utilizare a controalelor va fi detaliat într-un capitol 


următor. 

Fereastra Project Expiorer 

Denumită odinioară Project, fereastra oferă o imagine a tuturor fişierelor ce formează aplicaţia, 
într-o structură arborescentă. Redenumirea s-a produs începând cu versiunea 5 Visual Basic, pentru a 
ilustra asemănarea cu aplicaţia Windows Explorer. Navigarea prin această structură se realizează la fel 
ca în Windows Explorer, iar deschiderea fişierelor are loc prin dublu-ciic pe numele lor. Elementele 
ce se regăsesc în structura proiectului sunt: form-uri, module (cuprind cod-sursă), module de tip clasă, 
controale definite de utilizator ş.a. Această fereastră permite gestionarea rapidă a componentelor 
aplicaţiei - modificare, adăugare sau ştergere — prin câteva clicuri de mouse. 

O Fereastra Properties 

Aşa cum se arată în figura 1.6, această fereastră conţine o listă de proprietăţi (informaţii 
descriptive sau funcţionale) despre form-ul, controlul sau alt element activ (cel selectat la un moment 
dat). Având în vedere diversitatea controalelor, lista proprietăţilor diferă - mai mult sau mai puţin - de 
la un obiect la altul. 

©Fereastra Immediate 

Aceasta este o fereastră cu o destinaţie specială, in care se pot scrie şi executa instrucţiuni ale 
limbajului de programare, rezultatele fiind disponibile imediat. Este o facilitate foarte utilă în etapa 
depanării aplicaţiilor. 
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Figura 1.5. Ferestrele Toolbox (stânga) şi Project Explorer (dreapta) 


[îblTSthj Labei enn - 
| 


Alphabetic j Categorized | 
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AutoSize False 
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BorderStyle O-None 
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Caption 
Returns/sets the text displayed in an object's 
titie bar or below an object's icon. 


Figura 1.6. Fereastra Properties 


Nu uitaţi de AJUTOR 
La fel ca şi alte produse Microsoft, Visual Basic dispune de o multitudine de posibilităţi de a beneficia 
de ajutor, printre care se distinge sistemul Online Help. Acesta permite 
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obţinerea de informaţii despre o acţiune în curs de desfăşurare (help senzitiv la context) prin simpla 
apăsare a tastei FI. Există apoi meniul Help, ce conţine mai multe opţiuni. Help-ul Visual Basic este o 
parte a unei documentatii mult mai vaste ce însoţeşte pachetul Visual Studio şi poartă numele de 
Microsoft Developer Network (MSDN). Această documentaţie (în format electronic) cuprinde nu numai 
explicaţii şi exemple de utilizare privind elementele limbajului Visual Basic, ci şi mai multe articole 
tehnice, rezolvări la probleme specifice, aplicaţii complet funcţionale oferite ca material de studiu etc. 
Versiunea permanent actualizată a acestei biblioteci poate fi comandată pe CD la distribuitorii de 
produse Microsoft ori se poate consulta la adresa http://msdn.micro- soft.com/library/ (vezi figura 1.7) 


Address j£] http://msdn.microsoft.com/lorary/ 


msdn 


MSDN Home | MSDN Ubrary | Dowrdoads | Code Center | Site Map | MSDN WoHdwide 
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Capitolul 2 ÎNȚELEGEREA PROGRAMELOR 
VISUAL BASIC 


In vremea programării clasice, în urmă cu 15-20 de ani, înainte ca mediile de lucru cu ferestre sa 
devină populare, programul era cel care spunea utilizatorului ce poate să facă în 
care SzatoruT't “h — programului avea loc prin afea unor întrebări la 
Sa_/_|AUnda pentru ca aplicasia să poată co«inua pe un anumit ntS 'i,îmbunătăţită însemna afişarea unei 
liste de opţiuni numerotate din care 
într un al?ouncf a\ TI numarul ei)! Programele clasice nu permit deplasarea 


de opţiuni afişate 8pllCatiei> deCat dacă acest lucru este prevăzut explicit în meniu sau lista 


îl dMează'neArtiProsramarea clasica dezvoltat un program de dimensiuni mari care rijeaza pe utilizator pas 
cu pas in desfăşurarea aplicaţiei. De regulă, un astfel de pro- 
i/sau afi „ao mai muite întrebări ia : 
stzrr ~’ r ? --«>A] irs 


rratloViSatX>" 1 dec? aPliCarrra x xccce » wy 996¢TDMI 


Programarea dirijată de evenimente (event-driven program/ning) 
Mediile de lucru cu ferestre şi tehnica multi-tasking au adus schimbări radicale în stilul 
Lr&n2™y m ări) aplcapllor_ In mediu] Windows, aplicaţiile nu se mai derulează -o ordine stricta prevăzută 
în programul-sursă. Dimpotrivă, o aplicaţie oferă o multitudine de alternative grupate în meniuri sau în 
ferestre de dialog dintre cele mai 
şi ordiry în care se desra?oară e,e sunt stabi,ite + ` p- 


g lui se „fia intr-o stare de aşteptare, iar utilizatorul poate alege una dintre opțiunile 
penfru c^rX,e"°săSc$! dV6_rse programatorului devine astfel mult mai dificilă, 
SatoLui ° AonCeapa prosra7' astfel îAât acesta să răspundă la toate acțiunile utilizatorului. Aceasta sarcina 
este facilitată de paradigma programării dirijată de 
cTicTT medml WindoWS> oriCe aCtiune _ apăsarea unei ta^ selectarea unuf meniu lin rse’ area mOusecului sau multe altele 


ti asemenea - reprezintă un eveniment. ° 
parcursul AA mtamplă de obleei prin acî“nea directă a utilizatorului pe 
parcursul desfăşurării unui program. Sunt şi evenimente declanşate de sistemul de calcul (de exemplu, 
scurgerea unui interval de timp). 


angath' [atic cary rUlgag SUb Windows sunt gizijate de evenimente. Să considerăm a 

3, x -1). Ce d tampra Q j e 

Pentată”Urihzatoral 1^ >. Poe Sieu DAS RA His EAS er BR EE 
putea selecta o comanda prin intermediul sistemului de meniuri. Sau ar putea apăsa tasta F! Sau ar 


puîa'“ aJUtort SaU » A introduCe noi date ori formule în căsuţele foii de calcul 


1 Care este destinaţia mediului Visual Basic? 
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Figura 2.1. Aplicaţie în mediul Windows: Microsoft Excel 


Cum se construieşte un program astfel încât el să reacționeze la evenimente? Arhitectura sistemului 
de operare Windows este destul de complicată şi nu ne vom ocupa aici de explicarea modului cum se 
nasc evenimentele; e suficient să ştim care sunt acestea şi că mediile de dezvoltare oferă mecanisme 
pentru captarea şi interpretarea acestor evenimente, în varianta Visual Basic şi a produselor similare, 
programul constă dintr-un ansamblu de subrutine (proceduri sau subprograme), cele mai multe având 
dimensiuni reduse. Acestea se numesc proceduri-eveniment şi fiecare tratează un eveniment individual. 
O astfel de procedură este ataşată unui control şi se execută numai când controlul respectiv interceptează 
evenimentul pentru care a fost scrisă. Altfel spus, un program va răspunde unui eveniment care se 
produce la execuţie numai dacă a fost scrisă o procedură pentru evenimentul respectiv; în caz contrar, 
evenimentul va fi ignorat. 

Fiecare control plasat pe un form (ca şi form-ul însuşi) suportă mai multe evenimente. De exemplu, o 
casetă de text poate răspunde la unul dintre următoarele evenimente: clic, dublu-clic, introducerea unui 
text şi multe altele. Dacă pentru evenimentul clic este scrisă o procedură, atunci când aplicaţia se va 
lansa în execuţie, iar utilizatorul va efectua clic pe caseta de text (se produce în acest fel evenimentul) se 
va lansa automat în execuţie procedura definită. 
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Care sunt componentele unei aplicaţii Visual Basic? 
Discuţia privind componentele care formează un proiect Visual Basic se bazează pe aplicaţia VCR, 
care este inclusă în documentaţia MSDN. Această aplicaţie simulează comportamentul unui 
videorecorder. Va trebui să deschideţi (cu File | Open...) proiectul ver.vbp din subdirectorul 
\Samples\VB98 (calea până la subdirectorul Samples diferă în funcţie de versiunea bibliotecii 
MSDN de care dispuneti). Dacă ati optat pentru o instalare minimală a bibliotecii MSDN, este posibil ca 
acest exemplu să nu existe pe hard-disk-ul dumneavoastră. 

Figura 2.2 ilustrează principalele componente ale unei aplicaţii, servindu-se de proiectul menţionat. 

Observaţie: de remarcat extensia .vbp, specifică unui fişier-proiect Visual Basic. 

Aşa cum am văzut, o aplicaţie Visual Basic ia forma unui proiect, în care sunt reunite şi gestionate 
toate fişierele acesteia; fereastra denumită Project Explorer afişează structurat, pe categorii, toate 
fişierele ce compun aplicaţia. Utilizatorul are la îndemână toate fişierele corespunzătoare componentelor 
aplicaţiei. în exemplul prezentat se observă: 2 form-uri, un modul şi două module-clasă. Pentru fiecare 
componentă a aplicaţiei, fereastra Project Explorer afişează numele fişierelor corespunzătoare stocate pe 
disc (numele externe) şi numele utilizate în cadrul proiectului (numele interne). Spre exemplu, frmVCR 
este numele intern al form-ului, iar vcr. frm este numele fişierului în care acesta este salvat. 
Extensia fişierului precizează tipul obiectului salvat: . vbp este proiectul, . frm este form-ul, .bas 
este modulul de cod,. cls este modulul-clasă etc. 


fereastra Project Explorer 


Toolbox 
Js# VCR (VCR.VBP) “ 
(.Ti *Y Forms 
Toolbar-ul i & frmSetTime (set.frm) 
Standard” $ CJ. frm VCR (ver.frm) 
ifl- [t1 Modules Cj 


Class Modules 


III _. abese categofized Jaiz 
7 ua Appearance 
ain =|) x} 


Microsoft | Basic VCR n Vrtsion 10 


3de to icientify x| 
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Observaţie: Numele interne atribuite controalelor au de preferinţă - dar nu obligatoriu - un 
prefix format din 3 litere? care face referire la tipul controlului definit (exemplu: frm pentru 
form, cmd pentru command etc.). 

Nu se recomandă folosirea numelui intern pentru a denumi şi fişierul în care se salvează form-ul 
pe disc. De asemenea, nu se recomandă menţinerea numelor pe care le atribuie implicit Visual Basic, 
întrucât identificarea controalelor s-ar face mai dificil. Spre exemplu, trei butoane de comandă au 
numele implicite Command, Command2, Command3. Menţinerea acestor nume este posibilă, 
iar Visual Basic nu este cu nimic deranjat, dar în mod evident sunt mai sugestive numele: cmdOK, 
cmdAbandon, cmdlesire. Prefixele folosite în denumirea controalelor sunt consacrate printre 
programatori - spre exemplu, toţi folosesc prefixul cmd, şi nu com sau comă. Aceste prefixe 
sunt scrise cu litere mici, în timp ce numele propriu-zise pot combina litere mici cu litere mari. 


Execuţia aplicaţiilor 
Mediul de dezvoltare Visual Basic permite lansarea în execuţie a aplicaţiilor în scopul testării, fară 
compilarea prealabilă a acestora. Este vorba despre modul de execuţie interpretat, în care liniile 
codului-sursă sunt traduse pe rând în cod maşină şi interpretate tot pe rând. 


dan! ER cod a 2 ri 


Debug Run Query Diagram Jools Add-Ins Window Help 


a i - - 
Figura 2.3. Aplicația vcr în faza de execuţie 


2 în jargonul programatorilor, aceste prefixe, ca şi scrierea cu litere mari în mijlocul numelor de controale (frmlncasariSiPlati, de exemplu) 
definesc „notația ungureasca”, numită astfel după naționalitatea inventatorului său, Charles Simonyi, de la Microsoft. 
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Execuţia aplicaţiei permite descoperirea eventualelor nereguli sau erori în funcţionare încă din 
faza de proiectare. O aplicaţie lansată în execuţie în mediul Visual Basic poate fi oprită în orice punct 
şi reluată apoi din acel punct sau de la început. în plus, execuţia este imediată, fiind eliminată faza de 
compilare. Compilarea este de regulă ultimul pas făcut înainte de distribuirea aplicaţiei în forma sa 


finală. 


Observaţie: Pentru lansarea în execuţie se utilizează meniul Run 


| Start, tastaF5 sau 


butonul corespunzător din bara de instrumente: Oprirea aplicaţiei are loc prin 


opţiunea de meniu Run | End sau prin clic pe butonul ” . 


Rezultatul execuţiei aplicaţiei VCR se observă în figura 2.3. 


în figura 2.4 se poate vedea macheta form-ului în faza de proiectare, fiind selectat butonul de 
comandă cmdRec, ale cărui proprietăţi apar în fereastra Properties. 


General 


- 


Proprietățile 
controlului 
curent 


2U 

|cmdRec ComrrannButton 

Alphabetic | Cetegorized j 
j2@®@B"BferridRee jj 
Appearance 1-30 
BackColor 5 &H800000C 
Cancel False 
Caption Rec 
CausesValidatior True 
Default False 
DisabledPicture (None) 
DownPicture (None) 
Draglcon (None) 
DragMode 0 - Manual 
Enabled True 
Font MS Sans şerif 


| (Name) 
Returns the name used in code to 
identify anobject. 


| EI m 
N E | 
A j 
ae | 
Fe | 
T B 
sai i] 
oo | 
(3) B i 34 controlul j curent iSii 
o~ | 
me | = 
ig | || 

| 

| | 

| SE 

| -ului în curs de bici ÎN Unde se 


Aşa cum am mai arătat, codul este cel care dă viaţă unei aplicaţii. Fizic se regăseşte pe disc în fişiere cu 


extensia .bas. Aplicația prezentată mai sus are in categoria Modules fişierul ver .bas. 


Codul-sursă nu se găseşte doar în module (de tip .bas) . Acestea contin mai degrabă cod comun mai 
multor elemente ale proiectului. Cât despre procedurile-eveniment ale form-ului (care constituie tot cod- 


sursă), ele sunt memorate chiar în fişierul-form (cel cu extensia . frm) . 


Modulele standard (cele de tip .bas) se pot copia şi încărca şi în alte aplicaţii (prin ataşarea la alte 
proiecte), constituind o formă de reutilizare a codului deja scris; de aceea, în astfel de module se plasează 


de regulă proceduri cu caracter general. 
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Furpose: General module for the VCR sample 


applicstion. Contains shared procedures 


+ Modules 
«St VCRModule (ver.bas) 
Class Modules 


Option Explicit 


înstăritiate the racorder class 


Public Recorder As New clsRecorder 


Fucpoate: tnafeies or disables butcons on the 


VCR form based on the cur cent mode. 
Inputs: Button: the Coamnand button  cailing 
the procedura. 


Sub ButtonManager (Button k3 Control) 


Dim vntControl As Variant ' Control value Afişează 


form-ul 


+ determine xrhxch funor,ion button vas pushed ! 
and update al 1 bxxttona and PecoEder c.ia«» 
Select Case Button 
Case frmVCR.cmdPlay, frmVCR.cmdForward, frmVCR.cmdRewii 
frmVCR.cmdPause.Enabled = True 


Figura 2.5. Exemplu de modul-standard 

In ciuda naturii grafice a interfeței aplicațiilor proiectate in Visual Basic, codul jests definit sub formă 
de text. Codul este editat, vizualizat sau modificat ulterior în fereastra Code, Modul de lucru este cel 
obişnuit pentru un editor de texte, putând fi utilizat şi mecanismul Copy/Cut şi Paste. Colorarea 
diferită a unor cuvinte din codul-sursă ajută la verificarea vizuală a sintaxei. 

Pentru vizualizarea cortului se execută dublu^ljc pe modulul VCRModule din fereastra 
PrQjectT~ExrSTorer_sau se selectează modulul din aceeaşi fereastră şi se apasă tasta F7 ori butonul 
indicat în figura 2.5 cu „afişează codul”. Acelaşniic7u~se~"poățe face şi prin opțiunea de meniu View | 
Code. Modalitatea de afişare a codului este prezentată în stânga figurii. 


Procedurile-eveniment 
Secventele de cod corespunzătoare fiecărui control de pe un form sunt vizualizate executând dublu-clic pe 
controlul respectiv, sau prin tasta F7 ori butonul marcat în figura 2.5 cu „afişează codul”, ca şi prin 
opţiunea de meniu View | Code. Pentru ilustrare, am redat în figura 2.6 procedura-eveniment 
pentru clic-ul pe butonul de comandă cmdUp de pe form-ul frmvCR aparținând aplicaţiei demonstrative 
VCR. 

_ Prima şi ultima linie dintr-o procedură se numesc linii delimitatoare_(engl. wrapper lines). „Toate 


procedurile încep cu declaraţiile Private Sub sau Public Sub şise 


termină cu End" . . SubrNumele procedurilor-eveniment sunt unice, fiind alcătuite astfel: 


Nu'rfTS'u on t r oTTTumeEve niment"(T- ~ 
Externpiu: cmdUp ClIcFÎJ reprezintă procedura-evenimejt clic ataşată controlului cmdUp . 
Pentru dublu-clic se va defini procedura cmdUp_Db1Click (). Programa- "îoruTnu trebuie să-şi 


pună problema respectării acestei convenţii; denumirea procedurii- eveniment are loc automat, la prima 
accesare a acesteia. 
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Observaţie: Parantezele şi liniuta de subliniere (engl. underscore) sunt obligatorii în numele 
unei proceduri. Unele proceduri solicită prezenţa unei valori între paranteze, altele nu. în ambele 
cazuri parantezele trebuie să fie prezente. Aceste convenţii de scriere a numelor trebuie respectate 


obligatoriu, întrucât ele elimină orice ambiguitate în definirea procedurilor. 
Private Sub cmdUp_Click() 
| ' if in range, set the channel nuinber 
If 


De aici se selectează 
procedura-eveniment dorită 


PA VCR - frmVCR (Codey 


Afişează întreg codul 
form-ului 


vntChannel < 13 Then 
vntChannel = vntChannel + 1 
Else 

vntChannel = 2 End If 


* assiga the crharmel variat?le to the clisplay lblChannel.Caption = vntChannel End Sub 
Afişează procedură cu ]sub Form Loaaţj Procedură ~ 

IoxJ the curcent tirne 

= Format ( (Now), "h:mm AM/PM") 

f the forra 

ible = True 


Figura 2.6. O procedură-eveniment 

Numele evenimentelor nu trebuie reţinute, întrucât în partea superioară a fereastrei Code există o 
listă cu toate controalele plasate pe form-ul respectiv şi cu toate evenimentele posibile pentru fiecare 
control, în funcţie de tipul acestuia. Programatorul trebuie să selecteze întâi controlul, apoi 
evenimentul dorit şi astfel va accesa automat procedura (dacă aceasta nu exista anterior, se creează 
automat cele două linii delimitatoare). Acest lucru este de asemenea exemplificat în figura 2.6. 


Efectele procedurilor-eveniment 


Atunci când se plasează un control pe un form, programatorul defineşte imediat şi cele mai multe" 
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dintre proprietățile sale In fereastra Properties). Procedurile-eveniment pot fi definite şi 
dupa_ceTauTiosEjLla'sate“toate controalele. Spre deosebire de proprietăţi, al căror efeft_ poate fi 
imediat observat (de exemplu, numele ce se afişează pe un buton de comandă, jdefilTit prin 
proprietatea Caption, va fi imediat vizibil pe form-ul aflat în curs de proieclaj£),u*Qdunntrodus 
într-o procegura~va~avea efect doar la momentul executieT(iar cel dintr-o procedură-eveniment doar 
la producerea acestuia). 
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Crearea unei aplicaţii în mod asistat 
Poate e greu de crezut, dar puteţi crea o aplicaţie Visual Basic fară a şti nimic în plus fata de ceea ce ştiţi 
acum. Folosind instrumentul VB Application—Wtssihd,— realizarea unei aplicaţii se derulează sub forma 


unui dialog în care răspunsurile la întrebările formulate de 
asistent definesc principalele elemente ale aplicaţiei. ............ 


Atenţiei...Aplicaţia generată de wizard este denumită „aplicație schelet” (skeleton sau 
shell) deoarece este lipsită de funcţionalitate (de fapt, singura funcţionalitate constă în afişarea form- 
ului principal al aplicaţiei când se lansează comanda Run) . Prin proiectarea aplicaţiei cu ajutorul 
VB Application Wizard se defineşte mai mult aspectul vizual general al aplicaţiei (meniul şi opţiunile 
lui, bare de instrumente implicite, alte componente). Aplicația poate rula, dar în această primă etapa 
nu foloseşte la nimic. Urmează ca ulterior, prin editarea proiectului, să fie scris codul-sursă, pentru ca 
aplicaţia să execute sarcina pentru care a fost proiectată. Rolul crucial al instrumentului VB 
Application Wizard este reducerea timpului de creare a aplicaţiei şi micşorarea riscului de erori, 
lucruri importante pentru un începător. 
Observaţie: poate părea paradoxal, dar VB Application Wizard este utilizat mai frecvent de către 
programatorii experimentați, şi nu de către începători, întrucât aceştia trebuie să acumuleze 
cunoştinţele necesare înţelegerii structurii aplicaţiei şi modificării ulterioare a acesteia. 
Lansarea asistentului VB Application Wizard are loc prin opţiunea de meniu File |New Pro j 
ect..., ce afişează dialogul din figura 2.7. După selecţia pictogramei VB Application Wizard, se 
continua cu clic pe butonul OK. 


x] 
= — 
$ G ^ OK 
ns ty 5 ~ 
EER i Lf 
Cancel | 
Standard EXE ActiveXEXE Activex DLL 
Help | 
——— “d 
| | 
+ 
| Document Dl Document Exe 
i BP 3% mo re: 
$ L L 
Addin Data Project DHTML IIS Application | 
Application | 
| 
| Pas Si | 
| 


Figura 2.7. Lansarea vb Application wizard din fereastra New Project Paşii 


care urmează sunt explicaţi în lista următoare: 

> încărcarea unor preferinţe ale utilizatorului privind aspectul aplicaţiei, preferinţe care trebuie să 
fi fost salvate anterior sub denumirea de profil. Evident, dacă nu aţi mai lucrat cu acest wizard, 
veţi trece peste acest pas fără a selecta nimic, prin clic pe butonul Next, 

> alegerea tipului de interfaţă: MDI, SDI sau stilul Explorer, cu o organizare ierarhică 
(arborescentă) în fereastra din stânga şi cu o afişare de tip listă în 


înţelegerea programelor Visual Basic 29 


fereastra din dreapta; tot aici se va preciza şi numele pe care dorim să-l dăm proiectului (figura 2.8); 
construcţia asistată a meniului aplicaţiei, ca în figura 2.9. Pentru fiecare meniu din lista din stânga se vor 
selecta în lista din dreapta submeniurile dorite; opţiunile sunt din păcate disponibile doar în limba engleză. 
Ulterior se va putea interveni asupra meniului cu un alt instrument, Menu Editor, 

în mod similar se va proceda la construcţia unei bare de instrumente, prin selecţia unor butoane dintr-o 
listă, după cum se arată în figura 2.10; 


Yi: 


“J 


What type of interface would you like for your application? 
| Application Wizard - Interface T 


îissiii 


Multiple  Hmt! Document Interface (MDI) 
Al! windows exist at the same 
gingie devel. Document interface (SDI); 


C Explorer Style 


What name do you want for the application? [pjTest 


Hex 
*PI Cancel < Back Next > Finish 


Figura 2.8. Alegerea tipului de interfaţă 


crearea sau nu a unui fişier de resurse (figura 2.11); fişierele de resurse sunt modalităţi de 
stocare centralizată a unor şiruri de caractere utilizate în mai multe puncte ale aplicaţiei (de 
exemplu, mesaje de atenţionare); 

la pasul următor se poate opta pentru conectivitate la Internet - aplicaţia poate accesa direct 
Web-ul (se pot defini link-uri cu pagini web din cadrul aplicaţiei), wizard-ul ocupându-se 
de detaliile cerute de această opţiune; 

în figura 2.12 se arată cum puteţi selecta alte atribute opţionale ale aplicaţiei (form 
introductiv - splash screen, fereastră de prezentare a aplicaţiei - about box etc.); 

la pasul următor se poate opta pentru lansarea unui nou accesoriu, Data Form Wizard, care 
va include în proiect form-uri pentru interfaţa cu o bază de date (baza de date de tip 
Microsoft Access este cel mai adesea utilizată), despre bazele de date şi form-urile asociate 
se va discuta într-un capitol ulterior; 
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You can always use the Menu Editor to modify the menus after 
the application is created. 
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< Back Next > 


Figura 2.9. Pasul 3 din vb Application wizard -construcția unui meniu initial 


> în fine, activitatea wizard-ului se poate încheia prin clic pe butonul intitulat chiar Finish. 


înainte de aceasta puteţi salva configuraţia folosită pentru această aplicaţie într-un profil al 
cărui nume îl stabiliți dumneavoastră. Profilul poate fi reutilizat (vezi pasul 1) pentru a 


„clona” aplicaţia de fata. 
După clic pe butonul Finish, wizard-ul va construi aplicaţia, care poate fi 
executată (vezi figura 2.13). 
| Application Wizard - Cusfconmze Tool *j 
Customize the toolbar by moving the desired buttons to the list on the right. Change the order 


with the up/down arrows and add externai images with the image button. You may also 
drag/drop from list to list. 
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Figura 2.10. Construirea unei bare de instrumente iniţiale 
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jfe Application Wizar Resources 


| Resource files make it easy to distribute your product in 1 
multiple languages and can increase performance. 


„ The resource file will be stored in memory by the Resource 
Editor Add-In until the project has been saved. Once saved, 
the ,res file will appear in the project list under the Related 
Documents category, : 


Would you like to use a Resource file for 
the strings in your application? 
„C Yes No 

Help Cancel < Back Next > m Finish 


Figura 2.11. Opţiunea pentru un fişier de resurse 


XJ 


.¢ NiSIISII Would you like to include any of these standard forrns in vour 


application? 


IS = 
F Splash screen at application start up 
i Login dialog to accept an ID and Password 
1“ Options dialog for custom settings 
1™ about Box 


To include any custom form templates, clickhere, 


-.mu-/;.;mmu.:-:;. 
Form Templates... 


Help | Cancel j Next > J Finish J 


Figura 2.12. Optiuni suplimentare privind aplicatia 
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ini xj 
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LfiESE _*J 
Version 1.0,0 


OK 


Figura 2.13. Aplicatia-schelet in faza de executie 
Desi unele optiuni de meniu (cele cu caracter general, cum ar fi File|Open... ori 


Help i About...) reacţionează la selecţia lor, reamintim că nu este în sarcina wizard-ului să 


facă aplicaţia total funcţională. Structura proiectată (scheletul aplicaţiei) este apoi 


modificată, adăugându-se codul specific scopului dorit, cod care „dă viaţă” aplicaţiei. 


întrebări şi exerciţii 


1. 


2. 
3. 


we 


Prin ce se deosebesc programele care lucrează în medii grafice de cele care rulează în medii de 
tip text (programele clasice)? 

Ce sunt evenimentele? 

De ce numele fişierelor în care se salvează componentele proiectului sunt altele decât numele 
interne? Este obligatoriu să fie aşa? 

Adevărat sau fals? Toolbar este un sinonim pentru Toolbox. 

Care este ultimul pas de parcurs înainte de distribuirea unei aplicații utilizatorilor finali? 

De unde ştie Visual Basic care procedură trebuie executată pentru un eveniment al unui anume 
control? 

Adevărat sau fals? Toate controalele suportă un singur eveniment. 

Care dintre următoarele devin efective la momentul proiectării form-ului: proprietățile 
controalelor sau procedurile-eveniment definite? 


Capitolul 3 CONTROALE ŞI PROPRIETĂȚI 


Controalele plasate pe form-uri mijlocesc activităţi de culegere şi/sau de afişare a datelor. 
Controalele sunt cele mai importante componente ale form-urilor, iar proprietăţile sunt esenţiale în 
definirea controaleior. Se apreciază că cel mai uşor mod de a învăţa este „văzând şi făcând”, astfel că 
vom învăţa despre controale şi proprietăţile lor prin crearea unei aplicaţii de la zero, fără ajutorul 
wizard-uiui. 


Crearea unei aplicatii in regim manual 
O aplicaţie realizată fară a apela la asistent înseamnă deținerea controlului în toate aspectele impuse 
de proiectarea acesteia. Toate controalele (meniu, toolbar, butoane etc.) sunt plasate pe form de către 
proiectantul aplicației; pentru fiecare trebuie stabilite atribute precum poziţie, dimensiuni, nume şi 
altele - pe care wizard-ul le definea automat. Se depune un efort mai mare, dar Visual Basic simplifică 
lucrurile atât cât este posibil. în plus, începătorii vor înţelege si vor învăţa mai uşor dacă pornesc 
crearea unei aplicaţii de la zero, şi nu cu ajutorul wizard-ului. 

Comanda de creare este: File | New Project, alegându-se configuraţia Standard 
EXE. In zona de lucru va apărea fereastra Form, alături de celelalte ferestre necesare proiectării 
aplicaţiei. 


Observaţie: dimensiunile implicite ale ferestrei Form sunt relativ mici, dacă ne gândim că 
este zona în care vom plasa toate componentele aplicaţiei. Dar se poate proceda la mărirea acestei 
ferestre în caz de nevoie. Dimensiunea ideală este cea care permite încadrarea în zona de lucru a 
tuturor ferestrelor necesare realizării aplicaţiei 

(Form, Toolbox, Properties, Project Explorer). 


Definirea controalelor 

Aspectul controalelor dintr-o aplicaţie este important, deoarece acestea constituie interfaţa aplicaţiei 

cu utilizatorii. 

Pentru a plasa un control pe form există 2 variante de lucru: 

a) selectarea prin dublu-clic a controlului dorit din Toolbox. Acesta apare imediat în centru! form- 
ului (vezi butonul Command in figura 3.1. stânga), urmând ca apoi să fie repozitionat şi 
redimensionat; 

b) selectarea prin clic a controlului din Toolbox, apoi plasarea lui pe form prin descrierea unui 
dreptunghi imaginar de dimensiunile dorite, de asemenea cu ajutorul mouse-ului (vezi butonul 
Command? în figura 3.1. dreapta). 

Varianta a doua este mai avantajoasă întrucât nu mai e necesară mutarea sau redimensionarea 
controlului. Prin clic pe un control acesta este selectat, lucru indicat şi de prezenţa celor 8 indicatoare 
sub formă de mici pătrate negre - vezi figura 3.1. dreapta, în care este selectat butonul Command? . 
Mutarea se face prin drag &drop pentru butonul selectat. 
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Figura 3.1. Variante de lucru pentru definirea controalelor 


Se pot muta mai multe controale printr-o singură operaţie drag&drop, dacă acestea au fost 
selectate în prealabil. Selectarea multiplă (a mai multor controale) se face prin clic pe fiecare dintre 
ele, cu menţinerea apăsată a tastei CTRL. O altă variantă de selectare multiplă este „îngrădirea” 
zonei care conţine controalele de selectat cu ajutorul mouse-ului (vezi figura 3.2). 
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Figura 3.2. Selectarea multiplă a controalelor 


Observatie-, retineti modalitatea de a selecta mai multe controale, întrucât este utilă şi în alte 
împrejurări, cum ar fi modificarea unei proprietăți pentru mai multe controale. 


Stabilirea proprietăților 

în fereastra Properties sunt afişate proprietățile controlului curent. în etapa de proiectare, acesta este în 
mod implicit ultimul control plasat pe form. Alegerea controlului pentru care se definesc proprietăţile se 
poate face prin clic pe respectivul control din form sau prin selectarea lui dintr-o listă ascunsă din partea 
superioară a fereastrei Properties 
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(vezi figura 3.3). Fereastra Properties afişează în partea inferioară explicaţii asupra proprietăţii 
curente (colorată diferit). 
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datSpec Data 
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ListField nn... n... 
;Returns/sets the name of the field 


;in the Recordset object used to fill a 1 
control's list portion, 


Figura 3.3. Fereastra Properties contine lista controalelor 

Fiecare tip de control are acelaşi set de proprietăţi. Astfel, două butoane de comandă au aceeaşi 
listă de proprietăţi, dar o casetă de text şi o etichetă au seturi diferite de proprietăți. 

Proprietăţile Left, Top, Height şiwidth sunt singurele care se pot stabili fără a lucra in 
fereastra Properties, valorile lor (exprimate în twips) fiind calculate de Visual Basic în funcţie de 
locul în care este plasat controlul (Left: distanța față de marginea stângă a form-ului şi Top: 
distanţa fata de cea de sus) şi de dimensiunile stabilite la trasarea controlului (Width: lățime si 
Height: înălţime). Orice redimensionare ulterioară a controlului modifică automat valorile 
proprietăţilor. 

Observaţie, form-ul are definit la rândul său un set de proprietăţi, care se afişează în fereastra 

specializată atunci când îl selectăm. în cazul său, proprietăţile Left şi Top se referă la poziţia 

în cadrul ecranului. 


După plasarea unui control, prima proprietate ce se stabileşte este de regulă proprietatea Name . 
Pentru accesarea uşoară, această proprietate este prima afişată în listă - spre deosebire de celelalte, 
listate implicit în ordine alfabetică. Deşi Visual Basic asociază nume implicite tuturor obiectelor 
definite, acestea nu sunt cele mai relevante şi nu conţin prefixul de 3 litere - despre care am discutat 
anterior şi care le face mai uşor de identificat în codul- sursă - motive pentru care trebuie schimbate. 
Prefixele, corespunzătoare tipului de control definit, sunt enumerate în tabelul 3.1. 
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Tabelul 3.1. Prefixele asociate controalelor intrinsece Visual Basic 


Prefix Control 
cbo Combo Box 
chk Check Box 
cmd Command Button 
dir Directory List Box 
drv Drive List Box 
fii File List Box 
fra Frame 
frm Form 
grd Grid 
hsb Horizontal Scrollbar 
img Imaşe 
lbl Labei 
lin Line 
Ist List Box 
mnu Menu 
ole OLE 
opt Option Button 
pic Picture Box 
shp Shape 
tmr Timer 
EXE Text Box 
vsb Vertical Scrollbar 


Valorile unor proprietati, cum sunt Name sau ToolTipText, sunt definite prin scrierea lor directa 
in fereastra Properties. 

Termenul tooltip desemnează o casetă de descriere, cu informaţii referitoare la un control, afişată 
atunci când pointerul mouse-ului este menţinut pe controlul respectiv. 


V‘pjGeStud - Microsoft Visual Basic [desit 
File Edit View Project Format Debug Run Query Diagram Tools Add-Ins Window Help 


OM ° SAA 
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Figura 3.4. Tooltip pentru butonul start 


Utilizarea tooltip-urilor a devenit comună de la Windows 95 încoace, ele reprezentând o modalitate de 
a oferi utilizatorilor indicații sau explicații privind obiectele de pe ecran (vezi figura 3.4). Dacă pentru un 
anumit control utilizatorul precizează un text ca valoare a proprietății ToolTipText, textul respectiv 
va fi afişat deasupra controlului indicat cu mouse-ul, dar numai în etapa de execuție. 

Există şi proprietăţi pentru care valoarea se alege dintr-o listă. Spre exemplu, proprietatea Visible 
poate avea valorile True sau False (vezi figura 3.5). O altă categorie este a proprietăţilor în dreptul 
cărora se găseşte simbolul ... (puncte de suspensie), ceea ce semnifică deschiderea unei ferestre de dialog 
pentru a stabili valoarea acelei proprietăţi (exemplu: proprietatea Font) . 
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Figura 3.5. Moduri de afisare a proprietatilor 


Figura 3.5 ilustrează afişarea proprietăţilor ordonate alfabetic (stânga) ori grupate pe categorii 
(dreapta). în al doilea caz, proprietăţile sunt grupate în 5 categorii, modelul de prezentare fiind cel al unui 
arbore tip Explorer (în figură, categoria Behavior este expandată). Exploatarea listei grupate a 
proprietăţilor este recomandată atunci când se doreşte modificarea mai multor proprietăţi de aceiaşi tip 
sau pentru o imagine mai clară asupra proprietăţilor disponibile pentru un anumit control. 

Lista proprietăţilor unui control este destul de vastă şi rareori se lucrează cu toate proprietăţile, mai 
ales dacă se are în vedere că multe dintre ele au valori implicite, adecvate pentru majoritatea aplicaţiilor. 


Literali predefiniti 

Stabilirea valorilor proprietăţilor controalelor în faza de proiectare se face, aşa cum am văzut, prin editare 
sau selectare în fereastra Properties. Spre exemplu (vezi figura 3.6), pentru proprietatea 
MousePointer se poate alege o valoare (0, 1, 2...), a cărei semnificaţie este indicată în lista afişată. 
Dacă ulterior se doreşte modificarea valorii acestei proprietăţi în timpul execuţiei aplicaţiei (de exemplu, 
puteţi afişa o clepsidră când se execută o operaţie consumatoare de timp), acest lucru se va specifica într- 
o procedură. La scrierea procedurii trebuie să cunoaştem valoarea numerică ce corespunde valorii dorite 
pentru proprietatea respectivă. Dintr-o listă de valori posibile am alege cu uşurinţă valoarea 

11 ce corespunde valorii Hourglass, dar de ce să memorăm toate valorile numerice posibile? Visual 
Basic ne pune la dispoziţie literalul predefinit voHourglass, mult mai uşor de ţinut minte şi de 
înţeles la o parcurgere ulterioară a programului. 
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Figura 3.6. Literali predefiniti 
Deci literalii constituie constante predefinite, nume speciale atribuite diferitelor valori ale 
controalelor, valori care se vor atribui la executia programelor. Vom relua discutia la scrierea 
procedurilor. 


O aplicatie simpla 

Toate cele discutate vor fi mai uşor înţelese şi asimilate prin lucrul efectiv, adică prin realizarea unei 

aplicaţii. Paşii de parcurs sunt descrişi în continuare. 

1. Crearea unui proiect nou prin Filei New Project şi alegerea configurației de proiect 
Standard EXE. 

2. Modificarea valorii proprietăţii Name cu frmPrima şi a proprietăţii Caption cu Prima 


Aplicaţie (valoarea stabilită pentru proprietatea Caption se va afişa la execuţie în linia de 
titlu a ferestrei). 

3.  Redimensionarea form-ului la 5500x3000 twips (utilizând mouse-ul sau schimbând valorile 
proprietăţilor Height şi Width) . 

4. Plasarea în partea de sus a form-ului, pe centru, a unei etichete, prin clic pe butonul corespunzător 
controlului Labei din Toolbox şi trasarea sa pe form la dimensiunile dorite (vezi figura 3.7). 
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9. 


10. 


Visual Basic 
Modificarea (pentru controlul de tip Labei) valorii proprietăţii Name cu lblMesa j sia 
proprietăţii Caption cu „Orice început greu. 
Modificarea proprietăţii Font a etichetei astfel: Garamond, 20 pt, 


textului în cadrul etichetei prin valoarea 2-Center pentru proprietatea 
Aiignment. 


Bold. Centrarea 


Crearea unei margini 3D în jurul etichetei prin valoarea 1-FixedSingle pentru proprietatea 
BorderStyle. 


Adăugarea unui buton de comandă, prin selectarea controlului corespunzător 
(ComrnandButton) din Toolbox şi plasarea lui în centrul form-ului. 


Modificarea - pentru acest buton - valorii proprietăţii Name cu cmdExit şi a proprietăţii 


Caption cu &Gata. Textul precizat pentru proprietatea Caption se afişează pe buton, iar litera G 
este subliniată (la asta contribuie caracterul & - ampersand- plasat în faţa literei G). Utilitatea acestei 


pratici constă în posibilitatea de a apăsa butonul de comandă nu doar prin clic, ci şi de la tastatură, prin 
combinaţia Alt + G. 


11. 


.avara 15J2£ 


Orice inceput e greu 


cmdExit ComrnandButton Alphabetic | 


Gata Categorized j 
(Name) cmdExit 
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BackColor o &H8000000F& 
Cancel False 
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Caption 
jReturns/sets the text displayed in an object's 
jtitle bar or below an object's icon. 


Figura 3.7. Form-ul frmPrima în faza de proiectare 


Definirea unei proceduri pentru încheierea aplicației. Ieşirea din program se va face prin clic pe 


butonul de comandă cmdExit. 
evenimentul Click. 
cmd 
deschiderea ferestrei Code, 


Atunci când utilizatorul execută clic pe acesta, se produce 
Pentru a răspunde acestui eveniment, se va scrie procedură-eveniment 
Exit Click (). în acest scop, se execută dublu-clic pe butonul de comandă, ceea ce duce la 


în care se va scrie procedura. Sistemul scrie automat începutul şi 


sfârşitul procedurii, lăsând loc pentru corpul procedurii: 
Private Sub cmdExit Click () 


End Sub 


Diacriticele nu sunt suportate in toate fonturile, deci vă veţi mulţumi cu „inceput”. 
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Numele procedurii indică clar controlul şi evenimentul pentru care se scrie procedura. Comanda prin 
care se încheie o aplicaţie Visual Basic este End şi se scrie în corpul procedurii astfel: 


Private Sub cnidExit Click {) 


End 


End Sub 


De remarcat indentarea, care face procedurile mai lizibile şi uşor de urmărit. 


12. Execuţia programului, prin tasta F5, asociată comenzii Run (vezi figura 3.8). Pentru a încheia 


13. 


aplicaţia, se apasă butonul cu inscripţia Gata. 

Salvarea aplicaţiei, toate fişierele ce o compun fiind reunite într-un proiect. Se foloseşte comanda 
File | Save Project. Este solicitat mai întâi numele fişierului de tip .frm (în care se 
salvează form-ul) şi apoi numele fişierului .vbp (în care se salvează proiectul). 


Figura 3.8. Form-ul frmPrima în faza de execuţie 


întrebări şi exerciţii 


= 
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10. 


Care este cel mai rapid mod de a plasa un control pe form? 

Cum se poate redimensiona un control care a fost deja plasat pe form? 

Cum se pot selecta mai multe controale? 

Adevărat sau fals? Unele proprietăţi se modifică automat dacă un control este mutat sau 
redimensionat. 

Care dintre proprietăţi stabileşte titlul care se afişează în linia de titlu a form-ului? 

Care este diferența dintre un obiect şi un control? 

Ce este un tooltip şi când este acesta adăugat unui control? 

De ce la anumite proprietăţi se afişează după selectare 3 puncte de suspensie (...)? 

Creați un proiect nou. Plasati pe form 2 butoane de comandă şi o etichetă între ele. Atunci 

când utilizatorul execută clic pe primul buton pe etichetă trebuie să se afişeze textul „Aţi 
apăsat pe primul buton! Şi ce dacă?”. Salvaţi proiectul pe disc. 

încărcaţi proiectul realizat în exercițiul precedent şi adăugaţi texte explicative (tooltip) pentru 
etichetă şi cele 2 butoane. Executati aplicaţia. Salvaţi modificările. 


Capitolul 4 
MAI MULTE DESPRE CONTROALE 


Noţiunea de focus 


Se spune despre controlul activ la un moment dat pe parcursul execuţiei aplicaţiei că „deţine focus-ul”. 
Focus este un concept legat de execuţia aplicaţiilor. La execuţie, o singură fereastră (un singur form 
sau un singur control) poate avea focus-ul; acesta exprimă poziţia la care a ajuns utilizatorul. 

Fereastra activă are bara de titlu colorată diferit (pentru Windows, implicită este culoarea albastră) 
faţă de ferestrele afişate, dar inactive (care de regulă au liniile de titlu de culoare gri). Controalele nu au 
bară de titlu; controlul care deţine focus-ul ia execuţie are un contur umbrit sau textul afişat pe el este 
înconjurat de un chenar din linie punctată. 

Atenţie! Nu trebuie confundat focus-ul cu selectarea unui control. La proiectare, un control se 
selectează printr-un clic, devenind controlul curent. La execuţie, există întotdeauna un control care deţine 


focus-ul, iar acesta poate fi mutat prin TAB (următorul control) sau Shift + 
TAB (precedentul). m» Prima Aplicaţie 
-ini *l 


Orice inceput e greu 


Alt T exl Gila 


Figura 4.1. Butonul „Alt Text” are focus-ul 
Focus-ul este important pentru că arată controlul care va recepta un eveniment clic simulat prin 
apăsarea tastei Enter. Spre exemplu, considerăm form-ul din figura 4.1, în care sunt plasate două 
butoane de comandă. Focus-ul este deţinut de butonul inscripţionat cu „Alt Text” (în jurul acestuia se 


observă un chenar din linie punctată). Dacă se apasă Enter, evenimentul este recepționat, executând 
procedura ataşată evenimentului Click. Dacă se apasă TAB, focus-ul se va deplasa pe butonul 
inscripţionat ,,Gata”, iar un nou Enter va declanşa procedura evenimentului Click pentru acest buton. 
Există şi controale care nu pot primi focus-ul (de exemplu Labei). De aceea, apăsarea repetată a 
tastei TAB (în exemplul din figura 4.1) va muta focus-ul doar între cele două butoane. 
Observaţie: sigur că rămâne alternativa lucrului cu mouse-ul sau combinaţiile de taste pentru 
apelare rapidă (hotkeys, shortcut keys) - in figura 4.1 se poate selecta butonul inscripţionat „Gata” 
prin clic sau Alt+G, indiferent dacă acesta deţine sau nu focus-ul. Deci nu se discută despre 
conceptul de focus la lucrul cu mouse-ul sau cu 
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tastele de apăsare rapidă. în plus, butoanele de comandă mai au două proprietăţi speciale pe care le 
discutăm mai jos. 


Proprietatea Cancel şi proprietatea Default 

Proprietatea Cancel este specifică butoanelor de comandă şi este cumva asemănătoare cu focus-ul. 
Dacă proprietatea Cancel a unui buton de comandă are valoarea True, respectivul buton va recepta 
un eveniment clic simulat atunci când, la execuţie, utilizatorul apasă tasta Esc. 


Se ştie că tasta Esc are semnificaţia de abandonare a unei acţiuni sau operaţiuni, context în care se 
recomandă ca proprietatea Cancel să aibă valoarea True pentru butoanele de comandă de tipul Exit 
sau Abandon. în atare condiţii, părăsirea form-ului (uneori şi a aplicaţiei) se poate face prin clic pe 


butonul respectiv, prin apăsarea tastei Esc (dacă butonul are setat True pentru proprietatea Cancel) 
sau printr-o combinaţie de taste (dacă s-a folosit caracterul & în textul proprietăţii Caption). Un 
singur buton de comandă de pe un anumit form poate avea valoarea True pentru proprietatea 
Cancel. 

Proprietatea Default arată care dintre butoanele de comandă din form-ul curent interceptează un 


clic simulat de apăsarea tastei Enter. in acest scop, pentru butonul de comandă dorit, proprietatea 
Default trebuie să aibă valoarea True. Un singur buton de comandă de pe un anumit form poate 
avea True pentru proprietatea Default (stabilirea valorii True pentru un nou buton va face ca la 
precedentul proprietatea Default să ia automat valoarea False, menţinându-se astfel integritatea 
form-ului). 


Ordinea parcurgerii controalelor. Proprietatea Tablndex 


Am arătat că focus-ul se poate muta de la un control la următorul prin apăsarea tastei TAB (sau 
Shift+TAB pentru precedentul). Dar care este următorul şi care este precedentul? Dacă pe un form 
sunt plasate 6 controale, pe 3 rânduri şi 2 coloane, ordinea deplasării va ti de sus în jos sau de la stânga la 
dreapta? 

în mod implicit, ordinea de mutare cu tasta TAB este dată de ordinea în care au fost definite 
controalele. Dar nu întotdeauna controalele sunt definite în ordinea în care trebuie parcurse la utilizarea 
aplicaţiei, iar unele controale nu este necesar să primească focus (spre exemplu, nu are sens să stabilim 
focus pentru o etichetă). Se utilizează proprietatea Tablndex pentru care se stabilesc valori numerice: 
0 pentru primul control, 1 pentru al doilea, 2 pentru al treilea ş.a.m.d. 

Observaţie. E bine de reţinut că în Visual Basic numerotarea elementelor anei mulțimi 

(articolele dintr-o lista, variabilele dintr-un tablou) începe de la 0 (zero) şi se termină, logic, cu n - 1, 

deşi există şi câteva excepţii. 


Butoane de comandă (Command Button) 
Sunt utilizate pentru declanşarea unei acţiuni sau operaţiuni, cum ar fi tipărirea la imprimantă, salvarea 
sau abandonarea aplicaţiei. Pentru definirea unui buton de comandă: 


> se plasează şi se conturează butonul pe form; 
> se definesc proprietățile Name (preferabil cu prefixul cmd) si Caption; 
> se adaugă cod pentru evenimentul Click. 


Există 36 de proprietăţi şi 15 evenimente posibile pentru un buton de comandă. Cu toate acestea, cel 
mai adesea se definesc numai proprietăţile Name şi Caption şi se scrie doar procedura pentru 
evenimentul Click. Totuşi, în aplicaţiile elaborate se lucrează cu mai multe proprietăţi, cele mai 
importante fiind prezentate în tabelul 4.1. 


Tabelul 4.1. Principalele proprietăţi ale unui buton de comandă 
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Proprietate Descriere 

Backcolor Specifică culoarea fundalului butonului. Se alege dintr-o listă de culori. Pentru a 
putea schimba culoarea implicită trebuie modificată valoarea proprietăţii 
Style (1-Graphical, în loc de 0-Standard). 

Cancel Stabileşte dacă butonul va recepta un eveniment clic la apăsarea tastei Esc. 

Caption Este textul care se afişează pe butonul de comandă. 

Default Stabileşte dacă butonul va recepta un eveniment clic la apăsarea tastei Enter, 
chiar dacă un alt control deţine focus-ul. 

Enabled Stabileşte dacă butonul este activ (True) saunu (False). Are valoarea 
implicită True. 

Font Permite schimbarea tipului, mărimii şi atributelor fontului. 

Height Precizează înălțimea butonului în twips. 

Left Indică distanţa până la marginea stângă a form-ului, în twips. 

ousePointer | Stabileşte forma cursorului mouse-ului atunci când, la execuţie, utilizatorul 

indică butonul de comandă. 

Picture Precizează numele unei imagini grafice de tip icon (fişier de tip .ico) care 
apare pe buton (valoarea proprietății Style trebuie să fie 1-Graphical) . 

Style Stabileşte dacă butonul va apărea ca un buton Windows standard - numai cu text 
(valoarea O-Standard) sau cu text şi imagine (valoarea l- Graphical). 

Tablndex Specifică, printr-o valoare numerică, poziţia în ordinea de parcurgere a 
controalelor la execuţie. 

TabStop Precizează dacă butonul va obţine (True) saunu (False) focus la 
parcurgerea cu tasta TAB. 

ToolTipText | Precizează textul (explicaţii sau indicaţii) ce se va afişa într-o casetă de tip 

tooltip, la indicarea butonului cu ajutorul mouse-ului. 

Top Indică distanţa până la marginea de sus a form-ului, în twips. 

visible Stabileşte dacă butonul va apărea pe ecran la execuţie (True) sau este 
invizibil (False). 

Width Precizează lăţimea butonului în twips. 


Etichete (Labei) 


Contin texte (titluri, explicaţii sau indicaţii) care se afişează pe form în poziţii bine precizate. Cel mai 
adesea o etichetă însoţeşte o casetă de text, conţinând explicaţii asupra a ceea ce trebuie să introducă 


utilizatorul în caseta de text. Textul afişat de o etichetă (valoarea proprietăţii Caption) 


se poate 


modifica pe parcursul execuţiei aplicaţiei, conform cerinţelor, dar numai prin codul-sursă. 
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Tabelul 4.2. Principalele proprietăţi ale unei etichete 


Proprietate Descriere 

Alignment Indică modul de aliniere a textului etichetei (stânga, dreapta, centru). 

Autosize Dacă este setată True, modifică dimensiunile etichetei atunci când, la execuţie, 
este introdus un text prea mare pentru dimensiunile date. 

BackColor Specifică culoarea fundalului etichetei. Se alege dintr-o listă de culori. 

BackStyle Stabileste stilul fundalului etichetei. 

BorderStyle [Stabileşte stilul marginii etichetei. 

Caption Este textul care se afişează pe etichetă. 

Enabled Stabileşte dacă eticheta este activă (True) saunu (False). Are valoarea 

implicită True. 

Font Permite schimbarea tipului, mărimii şi atributelor fontului. 

ForeColor Stabileşte culoarea textului etichetei. 

Height Precizează înălţimea etichetei în twips. 

Left Indica distanţa până la marginea stângă a form-ului în twips. 

MousePointer | Stabileşte forma cursorului mouse-ului atunci când, la execuţie, utilizatorul 

indică eticheta. 

Tablndex Specifică, printr-o valoare numerică, poziţia in ordinea de parcurgere al 
controalelor la momentul execuţiei (eticheta nu poate deţine focus, dar poate face 
parte din această ordine). 

ToolTipText  |Precizează textul (explicaţii sau indicaţii) ce se va afişa într-o casetă de tip 
tooltip, la indicarea etichetei cu ajutorul mouse-ului. 

Top Indică distanţa până la marginea de sus a form-ului, în twips. 

Visible Stabileşte dacă eticheta apare pe ecran la execuţie (True) sau este invizibilă 

(False). 

Width Precizează lăţimea etichetei în twips. 

WordWrap Stabileşte dacă este posibilă scrierea textului pe mai multe linii în cadrul 
etichetei. 


Ca şi la butoanele de comandă, practic se utilizează mai mult proprietăţile Name şi Caption, pe 


lângă cele de dimensionare, care se pot preciza automat, o dată cu plasarea etichetei. Pot apărea 


probleme specifice atunci când lungimea textului conţinut variază - dacă acest text este introdus la 


execuţia aplicaţiei - dimensiunile etichetei se pot dovedi prea mari sau prea mici. Ajustarea automată a 


textului va permite afişarea corespunzătoare a acestuia. în figura 4.2, am ilustrat 2 etichete în care am 


scris acelaşi text; diferenţa constă în valorile proprietăților Autosize şi WordWrap. 
etichetă, ambele proprietăţi au valoarea False, 


La prima 
astfel că textul nu este afişat în întregime. La a doua 


am setat WordWrap cu True (am permis scrierea pe mai multe rânduri) şi apoi proprietatea 


AutoSize cuTrue (pentru redimensionarea automată a etichetei). 


Observaţie: dacă s-ar fi setat numai AutoSize la valoarea True, 


eticheta se redimensiona 


numai pe orizontală, ca în figura 4.3. Pentru a vizualiza întregul text, se modifică mai întâi 
WrapText şi apoi AutoSize (în această ordine). 


44 Visual Basic 
Figura 4.2. Utilizarea proprietăţilor AutoSize siWordWrap 


Textu 
contr 
Labei) | Lie 
evi T 
: |Label este L 
[Textul acestui :oarte lung si Control de tip 
Labei jlat, nu-i 
asa? 
Figura 4.3. Efectul neutilizării proprietăţii WordWrap Casete de 
text (Text Box) 


Sunt folosite pentru a prelua datele introduse de utilizator, fiind prezente în toate aplicaţiile Windows 


(vezi figura 4.4). 
% piGeStud - frmDiscipline (Form) -ini xl 


casetc de text 


XL 

Codul 
disciplinei 
Denumiiea 
disciplinei 
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activitate lucrare ; ; = ; pe 

parcurs scrisa * 

feed tp a 
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Figura 4.4. Exemple de casete de text 


JjJ 
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Tabelul 4.3. Principalele proprietăţi ale unei casete de text 


Proprietate Descriere 
Alignment Indica modul de aliniere a textului în casetă (stânga, dreapta, centru). 
BackColor Specifică culoarea fundalului casetei. Se alege dintr-o listă de culori. 
BorderStyle Stabileşte stilul fundalului casetei. 
Enabled Stabileşte dacă caseta este activă (True) saunu (False). Are valoarea 
implicită True. 
Font Permite schimbarea tipului, mărimii şi atributelor fontului. 
ForeColor Stabileşte culoarea cu care se va scrie textul. 
Height Precizează înălțimea casetei în twips. 
Left Indica distanţa până la marginea stângă a form-ului în twips. 
Locked Precizează dacă utilizatorul poate (True) sau nu (False) să editeze textul 
ce apare în casetă. 
axLength Specifică numărul maxim de caractere pe care le poate introduce utilizatorul în 
casetă. Valoarea implicită 0 înseamnă număr nelimitat. 
ousePointer | Stabileşte forma cursorului mouse-ului atunci când, la execuţie, utilizatorul 
indică acest control. 
ultiLine Permite (True) sau nu (False) introducerea textului pe mai multe linii. La 
scrierea pe mai multe linii se poate utiliza proprietatea ScrollBars, pentru al 
ermite deplasarea mai facilă în casetă. 
PasswordChar | Stabileşte caracterul care apare repetat în casetă atunci când utilizatorul 
introduce o parolă. 
ScrollBars Specifică prezenţa barelor de derulare în cazul scrierii textului pe mai multe linii. 
Tablndex Specifică, printr-o valoare numerică, poziţia în ordinea de parcurgere a 
controalelor la execuţie. 
TabStop Precizează dacă controlul va obţine (True) sau nu (False) focus la 
Text Specifică textul care se va afişa initial în casetă. Acesta poate fi înlocuit sau nu del 
către utilizator la execuţie. 
ToolTipText | Precizează textul (explicaţii sau indicaţii) ce se va afişa într-o casetă de tip 
tooltip la execuţie, la indicarea căsuţei de text cu ajutorul mouse-ului. 
Top Indică distanţa până la marginea de sus a form-ului în twips. 
visible Stabileşte dacă controlul va apărea pe ecran la execuţie (True) sau estel 
invizibil (False). 
Width Precizează lăţimea casetei în twips. 


Atunci când logica aplicaţiei o permite, se recomandă ca în caseta de text să se scrie o valoare 


implicită (proprietatea Text) , 


pe care utilizatorul poate să o menţină sau să o schimbe. De remarcat 


absenţa proprietăţii Caption. 
Observaţie: după parcurgerea principalelor proprietăţi pentru trei dintre cele mai utilizate 


controale se observă că multe dintre ele se repetă, având aceeaşi semnificaţie. Astfel, dacă aţi înţeles 


rolul proprietății Visible de la etichete, o puteţi utiliza exact la fel şi pentru alte controale. în plus, 


dacă sunt nelămuriri în privinţa unei proprietăţi, puteţi obţine imediat ajutor prin apăsarea tastei FI 


după ce s-a selectat proprietatea respectivă. 
Proprietăţile form-ului 


Fiind el însuşi un obiect, ca şi celelalte controale, form-ul are proprietăţile sale. Cele mai importante 
proprietăţi sunt cuprinse în tabelul 4.4. 
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Tabelul 4.4. Principalele proprietăţi ale unui form 
Proprietate |_ Descriere 
BackColor Specifică culoarea fundalului form-ului. Se alege dintr-o lista de culori 
BorderStyle Stabileşte stilul fundalului form-ului 
Caption Este textul care se afişează în linia de titlu a form-ului 
Enabled Stabileşte dacă form-ul este activ (True) sau nu (False). Se lucrează 
cu această proprietate doar în aplicaţii cu mai multe form-uri (MDT) 
Font Permite schimbarea tipului, mărimii şi atributelor fontului 
Height Precizează înălțimea form-ului în twips 
Icon Arată imaginea de tip icon ce se va afişa pe taskbar atunci când 
utilizatorul minimizează form-ul. 
Left Indică distanţa până la marginea stângă a ecranului, în twips 
MaxButton Specifică dacă form-ul va avea sau nu buton de maximizare 
Mai n Diakk 
MousePointer lpcunui uaca îorm-ui va avea sau nu buton de minimizare 
Stabileşte forma cursorului mouse-ului atunci când, la execuţie, utilizatorul 
indică form-ul. 
Moveable Stabileşte dacă utilizatorul poate muta sau nu form-ul pe ecran, la momentul 
execuţiei. 
Picture Precizează numele unei imagini de tip icon (fişier de tip . ico) care apare 
pe fundalul form-ului la execuţie 
ScaleMode Stabileşte unitatea de măsură utilizată pentru form (twip, pixel, 
inch, centimetri sau altele). Implicit este twip 
ShowInTaskbar Stabileşte dacă form-ul apare sau nu la execuţie în linia de start a Windows- 
ului. 
Stabileşte poziţia form-ului pe ecran (implicit acesta apare în stânga sus, dar 
o. poate fi afişat centrat pe ecran sau centrat în cadrul unui form-părint'e - vezi 
StartUpPosition aplicaţiile MDI) . 
visible limita uisranta pana la marginea de sus a ecranului, în twips Stabileşte 
dacă form-ul va apărea pe ecran la execuţie (True) sau este invizibil 
(Fal \ 
Width Precizează înălțimea form-ului. in twips 
WindowState Stabileşte starea iniţială a ferestrei în care apare form-ul la execuţie 
(minimizată, maximizată sau cu aceleaşi dimensiuni ca Ia proiectare) 


întrebări şi exerciţii 


1. 


2: 


Adevarat sau fals? Un control selectat (care are cele 8 indicatoare de selecţie) este controlul 
care deţine focus-ul. 


Adevarat sau fals? Atunci când utilizatorul execută clic pe o etichetă (care nu deţine focus) 
controlul indicat va primi oricum focus-ul. 


Care control este mai potrivit pentru titluri: etichetă sau casetă de text? 


Prin care proprietate se poate dezactiva o casetă de text, astfel ca aceasta să nu mai receptioneze 
evenimente? 


Ce se întâmplă la introducerea unui text lung într-o etichetă in care s-a setat True proprietatea 
AutoSi ze înainte dea seta True proprietatea WordWrap? 

Adevărat sau fals? La o casetă de text, proprietatea Caption indică valoarea implicită a acesteia. 
Realizati o aplicaţie Visual Basic cu un form denumit DATE PERSONALE, in care utilizatorul trebuie 
să specifice în două casete de text numele şi prenumele. Adăugaţi un buton de comandă pentru 
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terminarea programului (aceasta să se poată face prin clic pe buton, printr-o combinaţie directă — 
hotkey sau prin apăsarea tastei Esc) . 

8. Scrieţi o aplicaţie Visual Basic cu un form pe care plasați 5 butoane de comandă unul sub altul. 
Inversati ordinea de parcurgere, astfel ca la execuţie aceasta să fie de la ultimul la primul buton (de jos 
în sus). 


Capitolul 5 SCRIEREA CODULUI 


Vom explora în cele ce urmează Visual Basic sub aspectul limbajului de programare şi al realizării 
de programe. 

Deşi se spune despre Visual Basic că este unul dintre limbajele cele mai uşor de învățat, există 
multe capcane în care am putea cădea, astfel că programarea trebuie să înceapă după înţelegerea tuturor 
conceptelor fundamentale. 

Am arătat că o aplicaţie Visual Basic cuprinde: 
> unul sau mai multe form-uri; 
> mai multe controale pe fiecare form; 

secvenţe de cod scrise în limbajul de programare Visual Basic (module sau proceduri- eveniment). 

Putem crea o aplicaţie cu o interfaţă sofisticată, definind form-uri elegante, plasând apoi controale şi 
stabilind proprietăţile lor, dar care este complet inutilă dacă nu sunt definite proceduri. Nici un control 
nu poate calcula, de pildă, vânzările zilnice ale unei firme; trebuie definită o secvenţă corespunzătoare 
de cod, care constă dintr-o succesiune de instrucţiuni ce indică datele care trebuie citite, relaţiile de 
calcul şi modalitatea de afişare a rezultatelor. 

O atenţie deosebită în învăţarea unui limbaj de programare trebuie acordată operaţiunilor de I/E 
(intrare/ieşire). Acestea se referă la: 
> introducerea datelor de intrare: de către utilizator, de la tastatură, folosind casete de text şi controale 

înrudite cu acestea sau automat, prin preluare din diferite fişiere de date; 
> modalitatea de obţinere a rezultatelor prelucrărilor: pe ecran, la imprimantă, într-un fişier. 

In discuţiile precedente am arătat că o mare parte a codului dintr-o aplicaţie Visual Basic este 
cuprinsă în scurte proceduri care răspund la evenimente. In afară de proceduri- eveniment, codul se 
regăseşte şi în module standard. Un modul standard este un fişier ce conţine un cod care nu este legat 
explicit Ia nici un form, dar poate face referiri la form-uri şi la controalele lor. De regulă, se cuprind într- 
un modul standard rutine de calcul specifice, care pot fi utilizate şi de alte aplicaţii, prin includerea 
modulului standard definit deja în noua aplicaţie. 

Fizic, fiecare form şi fiecare modul sunt salvate pe disc în fişiere distincte, referintele la aceste 


fişiere fiind cuprinse, după cum ştim, într-un proiect gestionat prin fereastra Project Explorer 

în exemplul din figura 5.1, proiectul cuprinde două form-uri, salvate pe disc în două fişiere . frm. şi 
afişate în catalogul Forms. Un modul standard este salvat pe disc într-un fişier de tip .bas. 
Proiectul din figura 5.1 nu conţine nici un modul standard. Dacă ar fi fost definit un astfel de modul, el 


s-ar fi regăsit în catalogul Modules. 


X 
E El j|D 


B 6S Forrns 
m O frmEtichete (frmEtichete) 
Q. frmPrima (frmPrima) 


Figura 5.1. Structura proiectului pj Test 
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Tipuri de date utilizate de Visual Basic 
Se spune că datele reprezintă temelia oricărui limbaj de programare. înţelegerea datelor şi a modului lor 
de reprezentare este necesară pentru a învăţa comenzile de manipulare şi prelucrare a acestora. 

Există 3 mari categorii de date: numerice, şir de caractere şi speciale. încadrarea unei date într-o 
anume categorie este absolut necesară pentru a putea efectua calcule sau alte prelucrări. Un şir de 
caractere (String) este o secvenţă de 0 sau mai multe caractere care sunt tratate ca o entitate. Visual 
Basic lucrează cu şiruri de caractere de lungime fixă sau variabilă. Tipul de dată considerat implicit este 
Variant, care indică o dată de tip nespecificat. La preluarea acestei date într-o secvenţă de cod este 
necesară conversia ei în tipul corespunzător prelucrării ce urmează. 


Tabelul 5.1. Tipuri de date în Visual Basic 


Tipul Descriere 
Boolean Denumit şi logic, poate lua doar valorile True sau False. True şi False sunt 
cuvinte rezervate în Visual Basic. 
Byte IValori numerice pozitive, fără zecimale, în intervalul 0-255. 
Currency Date numerice care stochează sume însoţite de semnul monetar, în intervalul - 


$922,337,203,685,477.5808-5922,337,203,685,477.5807. Semnul monetar este 
scris automat de către Visual Basic. 


Date Date calendaristice şi timp. Data se încadrează în intervalul 1 ianuarie 100-31 
decembrie 9999. 
Double Valori numerice în intervalul -1.797693134862.32E+308 - 
1.797693 13486232E+308. Este denumit şi dublă precizie. 
Integer IValori numerice fără zecimale, în intervalul -32,768-32,767. 
Long Similar cu Integer, darcu valori în intervalul -2,147,483,648-2,147,483,647, 


[Acest tip consumă mai multă memorie. Este denumit şi long integer 
(întreg lung). 


Obj ect Tip special de date, care face referire la obiecte cum sunt controalele sau form- 
ul. 
Single Valori numerice în intervalul -3.402823E+38 to 3.402823E+38. Este denumit şi 
simplă precizie. 
String Şir de caractere alfanumerice (maxim 65400 de caractere). Pe lângă cifre şi 
litere, se pot include caractere speciale precum 4, %, and @. 
Variant Dată de orice tip, utilizată atunci când tipul datei este incert. 


Se observă în tabelul 5.1 utilizarea literei E pentru unele valori numerice. „E” provine de la 
„exponent”. în unele cazuri se utilizează ,,D” de la „exponent dublă precizie”. 

Prin exponent se înţelege aici o putere a lui 10 cu care se înmulțește o altă valoare. 

Literele E şi e (sau D şi d) sunt utilizate într-o notație specială, denumită ştiinţifică. Notatia 
ştiinţifică este o reprezentare prescurtată, utilizată pentru numere foarte mari sau foarte mici. Se 
consideră că această notație este mai inteligibilă decât repetarea unui număr mare de zerouri. 
Convertirea la valoarea reală se poate face oricând, astfel: 
> se calculează 10 la puterea dată de numărul care urmează după D sau E; 
> valoarea obţinută se inmulteste cu numărul care-l precedă pe D sau E. 

Exemplu: 78 . 932E+6 înseamnă 106 x 78 . 932 adică 78, 932, 000, 0001. 

Este clar acum de ce această notație se utilizează pentru numere foarte mari sau foarte’ 
mici. Am putea scrie şi numărul 12300 sub forma 1.23E+4, dar nu este practic. Chiar dacă nu 
utilizăm prea des această convenţie, înţelegerea ei este necesară, deoarece Visual Basic afişează 
uneori numerele astfel, pentru a economisi spaţiu (la fel fac şi programele de calcul tabelar, cum ar fi 
Excel). 
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Variabile şi constante 
Un literal este o valoare care nu se modifică pe parcursul unui program - poartă şi numele de 
constantă. 

Spre exemplu, pentru a calcula valoarea anuală, pe baza valorii lunare cunoscute, se va inmulti 
această valoare cu 12 (într-un an fiind 12 luni). 12 este o constantă, fiind o dată de tip Byte, 
Integer sau Long, în funcţie de context. Dacă se inmulteste cu 12 . 0, acesta este de 
asemenea o constantă, dar este de tip Single, datorită prezenţei măcar a unei zecimale. Nu este 
necesară specificarea explicită a tipului literalilor numerici, Visual Basic atribuind automat tipul cel 
mai adecvat. 

Constantele de tip String se scriu între ghilimele. 

Exemple: 

"Popescu Emil", "201413", "Str. Copou nr. 1", “HNSER", 
"aslui 

Ultimul exemplu este un şir nul, pentru că între ghilimele nu este specificat nici un caracter. 

Constantele de tip Date se scriu între 2 caractere # (diez). în funcţie de setările definite 
(opţiunea International Settings dinControl Panel), data şi ora se pot scrie: #15- 
Jun-2001# #15/06/2001# #13:13# #1:13 PM# 

Constantele de tip boolean pot avea doar valorile True sau False. Spre exemplu, 


proprietatea Value a unui control de tip buton de opţiune (Option Button) va avea valoarea 
True atunci când butonul este selectat şi False în caz contrar. 

Am arătat că Visual Basic interpretează şi atribuie automat tipurile de date pentru literalii 
numerici scrişi de utilizator. Atunci când dorim să ne asigurăm că Visual Basic va conferi unei 
constante un anume tip dorit, trebuie să utilizăm un sufix la scrierea constantei, dintre cele arătate în 
tabelul 5.2. 

Tabelul 5.2. Sufixe pentru constante şi variabile 
Sufix Tip dată Exemplu 
& Long 688 
i Single 68! 


1. Am utilizat conventia anglo-saxona: marca zecimala este punctul, iar virgula separa grupurile de 
3 cifre de la partea intreaga. 
Sufix Tip data Exemplu 
i Double 684 
9) Currency as" addin audiniai 


Astfel, dacă scriem i=68, Visual Basic va încadra constanta i la Byte sau Integer. Dacă 
dorim ca această valoare să fie considerată de tip Single vom scrie 68!, iar pentru tipul Currency 
680. 

Constantele se pot declara (explicit) cu instrucţiunea: 


Const <numeconstantă> [As <tip>] = <expresie> 
Exemplu: 
Const PI As Double = 3.1416 


Sub main () 


Raza = 25 
AriaCerc = PI * Raza * 2 
End Sub 


Numai o parte a datelor dintr-o aplicaţie sunt constante. Datele introduse de utilizator într-un 
control cum este caseta de text nu sunt literali, pentru că pot fi modificate. Ele se numesc variabile şi au 
ca scop păstrarea datelor introduse de utilizatori în intervalul dintre introducerea lor în sistem şi trimiterea 
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rezultatelor pe ecran, la imprimantă sau într-un fişier. 


O variabilă se poate defini ca fiind un nume al unei porţiuni din memoria calculatorului+, în care se 
păstrează date. Se poate face analogia cu o cutie în care se păstrează ceva. O dată conținută într-o 
variabilă nu trebuie neapărat să se schimbe, dar acest lucru este posibil, la acţiunea utilizatorului sau prin 
program. 

într-un program se poate lucra cu oricâte variabile este necesar, dar înainte de a putea lucra cu o 
variabilă, aceasta trebuie declarată, specificând numele şi tipul acesteia. 

Declaraţiile variabilelor pot fi implicite sau explicite, iar Visual Basic suportă ambele tipuri de 
declaraţii. Astfel, declararea implicită are loc o dată cu prima instrucţiune de atribuire, ca în exemplul: 


Raza = 25 
Raza este considerată o variabilă de tip Inte ger, dar declaraţia: 
Raza = 254% 


forţează această variabilă la tipul Double, chiar dacă ordinul de mărime este mult prea mare pentru 
valoarea 25. 

Pentru declararea explicită a variabilelor se utilizează instrucţiunea Dim. Aceasta este plasată la 
începutul programului, indicând că undeva pe parcurs vor fi necesare variabilele declarate. Formatul 
instrucţiunii de declarare este: 

Dim <NumeVariabilă> As <TipDată> 

<NumeVariabilă> este definit de către utilizator, iar <TipDată> este specificat explicit, 
tipurile fiind cele prezentate în tabelul 5.1. 

Observaţie: Numele de variabile pot conţine litere, cifre şi caracterul de subliniere (underscore). 

Nu pot să înceapă cu cifre, nu pot conţine spaţii ori alte caractere speciale. Este interzisă folosirea 

unor nume care sunt cuvinte-cheie în Visual Basic (nu putem avea o variabilă numită Form, dar 

putem folosi numele Forml 5). Aceleaşi precizări sunt valabile si pentru constante. 

Atunci când se execută instrucțiunea Dim, se rezervă în memorie un spaţiu cu dimensiunea 
compatibilă cu <tipDată> şi acestui spaţiu i se atribuie numele <NumeVariabilă>. 

Instrucţiunea Dim se poate plasa oriunde într-o procedură, dar se recomandă scrierea sa la începutul 
acesteia. 

Nu se pot defini două variabile cu acelaşi nume în aceeaşi procedură. 


Liste (arrays) de variabile 

în primul rând, trebuie precizat că termenul englezesc array are în terminologia românească doi 
corespondenţi: listă sau vector, pentru tablourile cu o singură dimensiune şi matrice pentru tablourile cu 
2 dimensiuni. Termenul tablou, care corespunde direct celui de array, este mai utilizat când sunt definite 
mai multe dimensiuni. Fiind cele mai frecvent întâlnite în aplicaţii, vom face referire mai ales la listele de 
variabile. 

Spre deosebire de variabilele obişnuite (de exemplu curPIB2000, sngSalariu, 
intNrStudenti, blnEsteMembruPNL etc.), o listă reuneşte mai multe variabile care au acelaşi 
nume, fiind identificate în cadrul listei printr-un indice. 

Revenind la variabila sngsalariu, pentru ca aceasta să cuprindă salariile tuturor celor 10 


salariaţi, ea trebuie definită sub formă de listă astfel: Dim sngSalariu (9) As Single (am 
considerat că salariul se poate reprezenta prin variabile de tip Single). Cifra 9 arată limita maximă a 
listei; limita minimă implicită este 0, deci avem un vector cu 10 elemente (cu indicii de la 0 la 9). Salariul 
primei persoane este dat de valoarea elementului sngSalariu (0), al celei de-a doua sngSalariu 
(1) ş.a.m.d. Figura 5.2 ilustrează modul în care este stocată în memorie variabila de tip listă 
sngSalariu. 


4 E vorba de memoria de tip RAM. 
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Observaţie: este posibil ca valorile indicelui să meargă de la 1 la n (in loc de 0 la n-l), prin 
plasarea în modulul General a instrucţiunii Option Base 1.De asemenea, Visual Basic permite 
specificarea explicită a limitelor superioară şi inferioară a listei: 

Dim sngSalariu(-5 to 4) As Single Se pot defini variabile de tip 
tablou cu maximum 60 de dimensiuni, astfel: 

Dim intMatrice(3, 4) As Integer saucu precizarea explicită a 
limitelor: 

Dim dblMasiv3D(l To 5, 4 To 9, 3 To 5) As Double 


sngSalariu 


sta Elementele 


ny listei 


Indici 


['] 
1 
2 
3 
4 
5 
6 
7 
8 
9 


Figura 5.2. Structura unei variabile de tip listă 
Ca orice altă variabilă Visual Basic, listele (tablourile, în general) se declară la începutul procedurii 


(dacă sunt locale) sau al modulului general (dacă se utilizează în mai multe proceduri). 
Limitele unui tablou se pot afla cu ajutorul funcțiilor: 


LBound (<tablou> [, dimensiune] )- pentru limita inferioară; 
UBound (<tablou> [, dimensiune] )- pentru limita superioară. 
Argumentul dimensiune trebuie precizat dacă se doreşte consultarea dimensiunilor 


2, 3,..., 60 ale unui tablou multidimensional. 
O aplicație imediată este parcurgerea tuturor elementelor unui tablou: 


For i= LBound (tablou) To UBound (tablou) 
"ceva de făcut cu tablou (i) 
Next i E 


Exemplu. Se doreşte calcularea totalului salariilor pentru 10 persoane. Variantele de rezolvare 


sunt: 
a) utilizând variabile simple: 


sngTotalSal = sngSalariul + sngSalariu2 + sngSalariu3 + _ 
sngSaiariu4 + sngSalariuS + sngSalariu6 + sngSalariu7 + _ 
sngSalariu8 + sngSaiariu9 + sngSalariulO 


b) utilizând o variabilă de tip lista 


Dim sngSalariu(9) As Single 

For intNr = 0 To 9 

strSalariu = InputBox("introduceti salariul") 
sngSalariu(intNr) = Val(strSalariu) 
sngTotalSal = sngTotalSal + sngSalariu(intNr) 
Next intNr 


La varianta (b) am inclus şi instrucţiunile pentru preluarea valorii salariilor. 
Este evident avantajul utilizării listelor, mai ales că în cazul variantei (a) ar fi trebuit să declarăm 


DEA cele 10 variabile simple utilizate (la cal Rasic declară o singură variabilă listă). Dacă exemplul 
acesta nu este convingător, am putea considera situația unei firme care are 1000 de salariați... 

Reluând cazul de mai sus, ce se întâmplă dacă intervin al 11-lea salariat, al 12-lea etc.? Variabila 
sngSalariu nu a fost declarată pentru a memora atâtea valori, dar din fericire există instrucțiunea 
ReDim care permite crearea de liste dinamice. Nu se poate utiliza ReDim pentru a redimensiona o 
listă care s-a declarat deja cu un număr finit de elemente. Astfel, codul din figura 5.3 nu funcționează. 
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ast: "'V:'V J.P.i 
J (General) v | [main zi 
main() xj 
Dirn sngSalariu (10) As Single 
sngSalariu(0) = 1500000 /\ Compile error: 
sngSalariu(9) = 1254521 Iei 


(11) Array already dirnensioned 


End Sub 


OK | Help | 


Figura 5.3. Imposibilitatea redimensionării unei liste deja declarate 


Soluţia constă în declararea iniţială a unei liste redimensionabile (cu Dim la care nu se precizează 
nici o limită), urmată apoi de câte instrucțiuni ReDim e nevoie, aşa cum se arată în secvenţa de cod 


următoare: 

Dim sngSalariu () As Single ReDim sngSalariu ( 

9) sngSalariu(0) = 1500000 sngSalariu(9) = 
1254521 

' acum avem nevoie d lemente suplimentare ReDim 
sngSalariu (11) 

sngSalariu(11) = 3500000 


Vom avea surpriza ca după execuţia acestui cod să pierdem valorile 
sngSalariu (0). . . sngSalariu ( 9), deoarece redimensionarea distruge conţinutul 
variabilei-listă. Pentru a împiedica acest lucru, ar fi trebuit să utilizăm clauza Preserve, astfel: 


ReDim Preserve sngSalariu(11) în 


locul liniei scrise in caractere bold. 
Locul instructiunii Dim. Variabile locale si globale 


Locul in care este plasată instrucţiunea Dim este important pentru că specifică modul în care se va lucra 
cu variabilele într-o aplicaţie. Este vorba despre „valabilitatea” sau „vizibilitatea” sau „durata de viaţă” a 
unei variabile. Termenul consacrat este domeniul (engl. scope) variabilei. 

Atunci când se include instrucţiunea Option Explicit la începutul unui modul, în secţiunea 
denumită generală (pentru că precedă toate procedurile şi totodată este accesată de acestea), atunci toate 
variabilele cu care se va lucra în cadrul modulului trebuie să fie declarate explicit. Dacă această 
instrucţiune lipseşte, se poate lucra cu o variabilă fără ca ca să fi fost declarată în prealabil, dar aceasta 
este considerată implicit de tip Variant. Precizarea este valabilă atât pentru modulele-standard, cât şi 
pentru form-uri. 

Dacă Dim este plasată la începutul unei proceduri (după declaraţia Sub  <nume- 
procedură>) , atunci variabila declarată va fi recunoscută şi va putea fi utilizată doar în procedura 
respectivă, fiind o variabilă locală. Pentru ca variabilele să poată fi utilizate în 
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toate procedurile dintr-un modul, trebuie să plasam instrucţiunea Dim in secţiunea generală a modulului 


(vezi figura 5.4). 

Dacă în locul instrucţiunii Dim se utilizează Public (având acelaşi format cu Dim), toate 
modulele-standard şi toate form-urile aplicaţiei vor putea lucra cu variabilele declarate astfel. Acestea se 
numesc variabile globale. Instrucţiunea Public este utilizată pentru declararea variabilelor în secţiunea 
General a modulelor standard. Nu se poate folosi declarația Public într-o procedură delimitată prin 
Sub.,„End Sub. 

Declaraţia Private permite declararea de variabile la nivel de modul (pot fi apelate numai din 
procedurile din modului respectiv, nu şi din alte module ori form-uri). Se foloseşte de asemenea în 
secţiunea General a modulului. Nici declarația Private nu se poate utiliza în cadrul procedurilor 
delimitate prin Sub. ..End Sub. 


“4 piTest - Module! (Code) 


|(Generai) X | (Declarations) >] 
a n i a re a aor 
Option Explicit 

Const PI As Double = 3.1416 

Dim Unghi As Single 

Sub CalculArieCerc() 

Dim Raza As Integer, AriaCere As Single 

Raza = 150 

AriaCerc = Raza * PI * 2 

End Sub 

Sub AflaCatetaOpusa() 

Dim Catetal As Single, Ipotenuza As Single 

Ipotenuza = 1250 

Unghi = PI / 2 

Catetal = Sin(Unghi) * Ipotenuza 

End Sub 


Figura 5.4. Domeniul variabilelor 


Conventii de denumire a variabilelor 


Ca şi la numele de controale, şi pentru variabile se utilizează un prefix de 3 litere, care să indice clar tipul 
de dată. 


Tabelul 5.3. Prefixe utilizate pentru numele de variabile 


Prefix Tip dală Exemplu 
bln Boolean blnEsteCasatorit 
byt Byte bytVarsta 
cur Currency curPIB 
dte Date dteDataNasterii 
dbl Double dblLungime 
int Integer intNumarOre 
ing Long IngDistanta 
ob 3 Object obj Poza 
sng Single sngSalariu 
str String strNumePrenume 
vnt sau var Variant vntValoareControl 


Exemplu: 
Dim sngTotalProductie As Single 
In exemplul de mai sus, prefixul utilizat în numele variabilei denotă tipul Single, dar nu-l 
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determină! Declaraţia Dim sngTotalProductie As Double merge perfect, dar nu-i oare putin 
confuză? 

Acest prefix nu este obligatoriu de utilizat, neavând nici o semnificaţie pentru Visual Basic, dar el 
simplifică munca programatorului. Recomandarea este ca toate variabilele cu care se lucrează să aibă 
nume explicite pentru a evita orice confuzii şi neclaritati. Nu ne împiedică nimeni să lucrăm cu variabila 
DP, darcu siguranţă DenProdus, şi mai ales strDenProdus sunt mult mai clare. 

Alte exemple: 

Dim intLungime As Integer Dim 

sngPret As Single Dim strNume 

As String 

La declararea variabilelor de tip sir de caractere se poate tine cont si de lungimea acestora, stiind ca 
ea poate varia între O si 65400 de caractere. Variabila strNume poate avea valoarea ,,Pop”, dar şi 
„Protopopescu”. Există situaţii în care dorim să limităm lungimea textului (să spunem că trebuie afişat 
într-o etichetă de lungime fixă), scop în care se utilizează opţiunea * astfel: 

Dim strNume As String * 18 

indicând că variabila strNume poate avea o lungime între 0 şi 18 caractere. Dacă se introduce un 
şir mai lung, Visual Basic îl trunchiază şi reţine doar primele 18 caractere. 

Pentru a declara mai multe variabile de acelaşi tip se poate utiliza o singură instrucţiune Dim. 
Astfel, în loc de: 

Dim A As String Dim 

B As String Dim B 

As String se poate scrie: 

Dim A As String, B As String, C As String 

Dacă se declară mai multe variabile printr-o singură instrucţiune Dim, ele pot fi şi de tipuri diferite: 

Dim A As String, F As Long 


Visual Basic păstrează şi vechile declaraţii de variabile din BASIC, prin sufixeataşate 
numelui variabilei. Aceste sufixe sunt aceleaşi din tabelul 5.2, la care se adaugă şi sufixul $ 
pentru variabile de tip şir de caractere. 

Exemplu: 

Formularea 


Dim AS, BS, CS este 
echivalenta cu 

Dim A As String, B As String, C As String Ultima 
declaraţie este totuşi recomandabila, întrucât este mai clară. 


Instructiuni de atribuire 
Prin declararea variabilelor nu sunt specificate şi datele pe care le vor păstra acestea. Instrucţiunile de 
atribuire fac asta. Formatul general este: 

<nume-var> = <expresie> 


unde <nume-var> este numele declarat pentru variabilă, iar <expresie> poate fi o constantă, 
o expresie matematică sau o altă variabilă. 

Exemplu: 

Dim intVarstaMinima as Integer, sngDistanta as Single 
intVarstaMinima = 21 sngDistanta = 15.6 
intVarstaMinima = "14" 

Ultima instrucţiune din exemplul de mai sus este greşită şi va genera o eroare la execuţie (tip de data 
incompatibil), deoarece variabila intVarstaMinima este de tip Integer şi nu i se poate atribui un 
şir de caractere (chiar dacă este format din cifre!). 

în afară de valori constante, unei variabile i se poate atribui valoarea unei alte variabile. Spre 
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exemplu, soldul iniţial din registrul de casă alone irme este soldul final al zilei precedente: 


Dim sngSoldlnitial As Single, sngSoldFinal As Single 
sngSoldFinal = 254100 sngsoldlnitial = sngSoldFinal 


Instructiuni de atribuire in lucrul cu controale 

Dacă soldul final din exemplul precedent ar fi scris de utilizator într-o casetă de text (de pe un form) 
cu numele txtSoldFinal, prin următoarea instrucţiune s-ar atribui valoarea scrisă variabilei 
sngSoldlnitial: 

sngSoldlnitial = txtSoldFinal.Text 

Se poate proceda si invers, dandu-se valori diverse pentru proprietatile controalelor prin instructiunea 
de atribuire "=". Spre exemplu, pentru a modifica textele afişate pe etichete sau butoane de comandă, se 
plasează o instrucţiune de atribuire într-o procedură, după exemplul din figura 5.5. 

Literalul specificat va apărea pe butonul de comandă cmdUnu atunci când, la execuţie, utilizatorul 
efectuează clic pe acest buton, chiar dacă la proiectare proprietatea Caption a butonului are valoarea 
„Command!”. 

în scrierea codului trebuie să se tina cont de valorile pe care le pot lua proprietăţile, altfel programul 
va fi presărat de erori. Există spre exemplu acele valori numerice pentru proprietăţi precum 
BorderStyle, dar la proiectare în dreptul valorii numerice apare şi explicaţia sub formă de text. intr- 
o procedură vom specifica doar valoarea numerică (dacă o ştim) sau literalul predefinit pentru alegerea pe 
care dorim să o facem. Pentru BorderStyle există valorile: 0 - None şi | - Fixed Single. 
Modificarea acestei proprietăţi într-o procedură se face prin instrucţiunea: 

IblTitlu.BorderStyle = 1 sau 

(folosind un literal predefinit): 

IblTitlu.BorderStyle = vbFixedSingl 

Numele literalilor predefiniti se pot afla prin apelarea la sistemul de ajutor (FI) . 
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2 -Îşi *iti 
m -inIxl 
"ti 
Commandl 
Daşa jnjxj 
jeiick 
Private Sub cmdUnu_Click() 
cmdUnu.Caption = "Un mar pe zi te scuteste de mers ia doctor" 
End Sub 
SPILI +T2 
-1“ X 
AET if... a 
| Commandl 1 e scuteste de mers la doctor * 


Operatorii limbajului Visual Basic 


Figura 5.5. Form in etapa de proiectare (sus) si executie 
(stanga jos - inainte de clic, dreapta jos - dupa clic) 
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Spuneam mai sus că unei variabile i se poate atribui o expresie matematică. în construirea acesteia se 
utilizează operatorii matematici. Cei mai importanţi dintre aceştia sunt pre 


zentări în tabelul 5.4. 


Tabelul 5.4. Operatori matematici în Visual Basic 


Operator Exemplu Descriere 

+ Sal + Imp Adună două valori. 

E Pret - 10000 | Scade o valoare din alta. 

x Total * inmulteste două valori. 
ProcTVA 

/ Total / 12 împarte o valoare la alta. 

N 102 \ 4 Calculează câtul unei 

Mod 102 Mod 4 Calculează restul unei 

A. Indice 4 3 Ridică o valoare la putere. 

& (ori | Numel & Nume2 | Concatenează două şiruri. 
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Visual Basic 
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Ordinea de efectuare a operaţiilor este cea cunoscută: întâi ridicarea la putere, apoi inmultirile şi 
împărțirile şi la urmă adunările şi scăderile. Pentru a schimba această ordine (denumită şi precedența 
operatorilor), se utilizează parantezele. 

Exemplu: 

3 ot, 24 bu D= 2 

(3+2) * (4+1) = 

25 102/4=25.5 102\4=25 

102 Mod 4=2 

La folosirea operatorilor aritmetici pentru efectuarea de calcule, tipul de data al rezultatului, daca nu 
este declarat in prealabil, este dat de tipul de data cel mai precis. Exemplu: 

Dim a as Long, b as Integer 
a=25.565689 b=12 c=a+b 

Rezultatul, memorat în variabila c, va fi 37.565689. Tipul de data al variabilei c va fi Long 
(tipul variabilei a), deoarece acesta are un grad de precizie mai mare decât tipul Integer (tipul 
variabilei a) . Dacă variabila c ar fi fost declarată în prealabil ca Integer, Visual Basic ar fi 
rotunjit automat rezultatul la valoarea 38, deoarece tipul Integer nu are poziţii zecimale. 

Ultimul dintre operatorii din tabel (&) este operatorul de concatenare, operaţiune prin care două 
şiruri de caractere sunt puse cap la cap. Dacă am avea 2 casete de text (txtNume şi txt Prenume) 
în care utilizatorul a introdus numele, respectiv prenumele, prin concatenarea celor două valori am 
obţine numele întreg, astfel: st rNumePrenume = txtNume & txtPrenume 

Există o mică problemă cu instrucţiunea de mai sus, referitoare la absenţa spaţiului dintre nume şi 
prenume. Operatorul & nu inserează automat un spaţiu - pentru că nu întotdeauna este necesar aşa ceva. 
Spaţiul trebuie specificat explicit astfel: 

strNumePrenume = txtNume & " " & txtPrenume 

Observaţie: Visual Basic foloseşte pentru concatenare şi operatorul +, dar nu-l recomandăm, 

deoarece poate produce confuzia (în mintea programatorului începător) cu operatorul pentru 

adunare. Oricum, nu este greşit dacă scriem: 

strNumePrenume = txtNume + " " + txtPrenume 


Sistemul de ajutor la scrierea codului 

Formatele instrucţiunilor Visual Basic nu sunt tocmai uşor de reţinut. Este adevărat că deocamdată am 
avut de-a face cu instrucţiuni simple, dar în capitolele următoare (şi nu numai în ele) veţi întâlni 
instrucţiuni mai complicate, a căror memorare pune probleme. Evident, există soluţia căutării sintaxei 
corecte în manualele de utilizare în format clasic sau electronic. 
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-| Option Explicit 


Sub main() 
Dim intVarsta As int 


SS IFontDisp ji End sub  IFontEventsDisp 
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Figura 5.6. Auto List Members: ajutor la declararea unei variabile (sus) şi la adresarea unui 

proprietă ţi a unui control (jos) 

începând cu versiunea 5, Visual Basic oferă ajutor ad-hoc, în timpul scrierii codului- -sursă: după ce 
s-a introdus un cuvânt-cheie care este recunoscut ca având parametri, editorul de program din Visual 
Basic afişează lista valorilor posibile pentru respectivii parametri. Prin parametri înţelegem aici 
proprietăţile unui control (care în cod se separă de numele controlului prin punct), argumentele unei 
proceduri sau funcţii (vom afla mai multe despre funcţii în capitolul următor), tipurile de dată etc. 
Această facilitate se numeşte Auto List Members. 

După cum se observă în figura 5,6, poziţionarea în listele respective se face mai uşor prin tastarea 
primelor litere ale cuvântului dorit („int” pentru Integer, c pentru Caption). Scrierea efectivă a 
cuvântului dorit are loc prin apăsarea tastei „spaţiu” (după caz, folosiți Enter daca doriţi să treceţi 
automat pe rândul următor ori tasta „virgula” dacă scrieţi elemente ale unei liste sau tasta ,,=” dacă scrieţi 
o instrucţiune de atribuire). Există şi varianta folosirii mouse-ului, dar este mai incomodă. 


Observaţie: nu se afişează nici o listă dacă variabila nu a fost declarată sau dacă 

obiectul nu există. O altă posibilitate ar fi ortografierea greşită. 

O altă tehnică disponibilă în editorul de program Visual Basic este Auto Quick Info, care oferă 
informaţii privind formatul unei funcţii, imediat după scrierea numelui acesteia. în figura 5.7 ni se arată 
că argumentul funcţiei Sqr (), care extrage rădăcina pătrată, este un număr de tip Double, iar 
rezultatul funcţiei este tot de tip Double. 
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(General) A Jmain 


Option Explicit 


Sub îtiainf) 
Ditn intPrimuiNumar As Double, intAlDoileaNumar As Double inter 


iinulNurnar 164 intAlDoileaNumar =sqr ( 
End Sub Sat(Number As DotMe) As Double | 


Figura 5.7. Auto Quick inf o: sugerarea formatului funcţiei Sqr () 


Observaţie: nu se afişează nimic dacă funcţia nu există (e bine să verificaţi şi ortografia, cauza 

poate fi o scriere incorectă a numelui funcţiei). 

Aceste două opţiuni de asistenţă (Auto List Members şi Auto Quick Info) pot fi activate sau 
dezactivate din meniul Tools | Options | Editor (figura 5.8, stânga). 


[Editor | Editor Format j Generai j Docking j Environment ) Advanced j 
Code Settings -------- ---------- ---- 


-j Editor Editor Fornat j General j Docking | Environment | Advanced | 
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F Drag-and-Drop Text Editing j i F Default to Full Module View j F Procedure 


Separator . ? i Foreground: Background: Indicator: i j j ABCXYZatocxyz 1 S J Auto jJ 1 Auto 


[2] tuto; N j 


[OK J Cancel | Help jOK} Cancel | Help: 


Figura 5.8. Opţiuni de asistenţă la scrierea codului (stânga). 
Opţiuni de evidentiere a sintaxei prin culori diferite (dreapta) 


Notă: Visual Basic scrie automat cuvintele-cheie în maniera în care ele sunt definite (instrucţiuni 


precum Dim...) ori în care au fost scrise la declarare (txtNumePrenume, intVarsta). 
Aceasta are scopul îmbunătăţirii lizibilitatii şi nu are nimic deaface cu 
greşelile de sintaxă, întrucât Visual Basic nu face distincţie între literele mici şi cele 
mari. 


Comentarii în programele Visual Basic 
Un comentariu constituie o linie de cod care nu se execută, având în cuprins explicaţii sau remarce 
asupra altor porţiuni de cod (care, de regulă, urmează). în acest fel, la o parcurgere ulterioară a codului 
va fi facilitată înţelegerea acestuia. în folclorul programatorilor, se spune că „un program este scris o 
dată şi citit de mai multe ori”. După un timp, un program necomentat, fie el şi de mică întindere, este 
dificil de înţeles, chiar şi de către cel care l-a scris. Comentariile incluse de programatori la scrierea unei 
aplicaţii ajută foarte mult la modificarea sau întreţinerea acesteia. 
Se apreciază că un program bine scris utilizează: indentarea, spaţii (rânduri libere) între proceduri şi 
comentarii pentru secvențele dificile de cod. 
Un comentariu este deci un mesaj inclus într-o secvenţă de program cu diferite scopuri, precum: 
> identificarea programului (cine I-a scris şi când); 
> descrierea obiectivului general al programului; 
> descrierea scopului fiecărei proceduri în parte; 
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> explicarea secventelor sau calculelor dificile. 
Observaţie: adăugaţi comentarii chiar dacă sunteţi atât programatorii, cât şi beneficiarii 
aplicaţiei. După câteva luni, când veţi dori să modificaţi ceva, nu veţi mai şti toate dedesubturile 
programului. încă ceva: scrieți comentariile pe măsură ce scrieţi programul, altfel va fi greu de 
lămurit unde trebuie plasate şi probabil nu le veţi mai scrie deloc. 
Pentru definirea comentariilor în Visual Basic există două variante: 

> utilizarea instrucţiunii REM. Desemneaza un comentariu care se întinde pe întreg rândul; 

> utilizarea unui apostrof (') la începutul comentariului; în acest caz se pot scrie comentarii şi după o 
instrucţiune, pe acelaşi rând. 


Exempiu: 
Rem Programator: lonescu Dan, 15 iulie 2001 
Rem Program de calcul ai salariilor 


Rem aici sunt alte instrucțiuni... 
at 


Sub Calc Impozit (sngSalar As Single) 

"Procedura de calcul a impozitului 

Dim snglmpozit As S.ngle 'variabila pentru memorarea impozitului 
"Se utilizează 2 variabile: 

‘una pentru suma fixa si una pentru procent. 

Dim sngSumaFixa As Single, sngProcent As Single 

"calculul impozitului 
sngIlmpozit=sngSumaFixa+sngsalar*sngProcent/100 

End Sub 

Din exemplul de mai sus se observă că este mai simplă utilizarea apostrofului şi că un comentariu 
mai lung se poate scrie pe mai multe linii, iar unul scurt pe aceeaşi linie cu instrucţiunea pe care o 
explică. 

Editorul de program Visual Basic colorează comentariile pentru a facilita detectarea lor vizuală. 
Sunt câteva culori implicite: verde pentru comentarii, albastru pentru cuvintele- cheie, negru pentru 
elementele definite de utilizator (variabile şi constante) etc. Aceste culori pot fi schimbate prin 
comanda Tools | Options | Editor Format (vezi figura 5.8 dreapta). 

Liniile de comentarii nu sunt executate şi nu sunt vizibile în momentul execuţiei aplicaţiei - Visual 
Basic ignoră la execuţie liniile care încep cu Rem sau apostrof. 

Nu trebuie să cădem într-o altă extremă şi să exagerăm cu comentariile. Un comentariu precum: 

Dim snglmpozit As Single 'declara variabila snglmpozit seamănă a 
pierdere de timp, tipul şi destinaţia variabilei fiind precizate suficient de explicit în declaraţia Dim. 
întrebări şi exerciţii 
Ce reprezintă tipul de dată? 

Ce diferenţă este între tipurile de date String şi Boolean? 

Care este diferenţa dintre un literal şi o variabilă? 

Care dintre următoarele variabile au nume incorecte? 

e 12Luni 

e a 

* 85 

e "dblCapitalSocial" 

* Conta98 

Ce diferenţă este între o variabilă de lungime fixă şi una de lungime variabilă? 


6. Care valoare va fi stocată de variabila ans in fiecare dintre următoarele 4 cazuri? 
rratloViSatxXo" ' dur aPlicanta xx > xy mM! 20 


mmm 32 


FAO 


SA 
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BiG IN OE SY Ne A a 34 

a 37 

asa 57 

jgxr 65 

lip 192 
e ans = 25-8/2/'2 +1- 

7. Scrieţi o secvenţă de cod pentru declararea următoarelor variabile: nume student, 
prenume student, vârsta, anul de studiu, plătitor de taxă. Alegeţi 
tipurile de dată pe care le consideraţi adecvate. 

8. Realizati o aplicaţie cu o casetă de text, o etichetă şi un buton de comandă. în caseta de text veţi 
introduce vârsta dumneavoastră în ani, iar în etichetă se va afişa vârsta în zile, atunci când se va 
executa clic pe butonul de comandă. 

9. Scrieţi 3 comentarii la începutul unui program care determină situaţia lunară a TVA-ului 
(identificarea programatorului, a datei la care este scrisă aplicaţia şi a scopului acesteia). 

10. Care sunt cele două moduri de specificare a comentariilor într-un program? 

11. Adevărat sau fals? Comentariile dintr-un program sunt destinate utilizatorilor. 

12. Adevărat sau fals? Este obligatorie definirea comentariilor într-un program. 


Capitolul 6 
CASETE DE MESAJ SI CASETE DE INTRODUCERE 


A DATELOR 


Derularea unei aplicaţii presupune purtarea unui dialog cu utilizatorul, atât sub forma întrebare- 
răspuns, cât şi prin afişarea de componente grafice pe un form. O primă variantă de realizare a dialogului 
o constituie etichetele şi casetele de text, dar acestea nu pot afişa mesaje de eroare sau de avertizare într- 
un format adecvat. Se utilizează în acest scop casetele de mesaj (Message Box). Casetele de intrare 
(Input Box) se utilizează pentru introducerea datelor, având opţiuni suplimentare fata de casetele de text. 


Câte ceva despre funcţii 


Conform principiilor programării structurate, o problemă de mare întindere nu se rezolvă printr-un singur 
program monolitic, a cărui inteligibilitate scade cu creşterea dimensiunii. Problema se împarte în module 
care îndeplinesc funcţii bine definite şi care pot fi refolo- site; programul propriu-zis se compune prin 
combinarea acestor module, numite proceduri şi funcții, noţiuni asupra cărora vom reveni într-un capitol 
ulterior. 

Limbajele de programare contemporane (mai bine zis mediile de dezvoltare care includ aceste 
limbaje) posedă seturi de funcţii „gata confecţionate”, capabile de prelucrări cu caracter general. în 
Visual Basic există un număr mare de funcţii predefinite (built-in functions), pe care le putem include in 
programe. Sunt definite funcţii ce execută calcule matematice sau prelucrări simbolice (asupra unor 
şiruri de caractere). în capitolul precedent am menţionat în treacăt funcţia Sqr (). Unele funcţii, pe care 
It vom discuta în continuare, realizează chiar citirea şi afişarea datelor. în orice limbaj programatorul 
poate crea şi utiliza propriile funcţii, pe lângă funcţiile predefinite. 

O funcţie este o secvenţă de program care primeşte 0, 1 sau mai multe argumente şi retumează un 
singur rezultat. 


FUNCŢIA 
0, 1 sau mai multe 
argumente” 
manipularea 
argumentelor 


Rezultat 
(o singură valoare) 


Figura 6.1. Reprezentare schematică a unei funcţii 


Important. în Visual Basic, funcţiile au formatul Nume-functie (). între paranteze se scriu 
argumentele funcţiei, separate prin virgulă. Prezenţa parantezelor este obligatorie, chiar dacă o 
funcţie nu are argumente. 


FuncţiileMsgBox () şi InputBox () 
Aceste funcţii permit efectuarea unor operaţii simple de intrare-iesire; MsgBox () se utilizează în locul 
etichetelor, în scopul afişării unor texte (de unde şi numele), iar InputBox () se foloseşte pentru 
preluarea de date de la tastatură, ţinând locul casetelor de text. Aceste funcţii permit realizarea unui 
program Visual Basic care nu foloseşte nici un form, dar e uşor de imaginat că folosirea unui astfel de 
program nu e tocmai plăcută când sunt multe date de preluat, respectiv de afişat. 
Invocarea funcţiei MsgBox () afişează pe ecran caseta de dialog, al cărei aspect este prezentat in 
figura 6.2. Codul-sursă prezentat conţine mai multe elemente noi. 
Observaţie: caracterul plasat la sfârşitul unei linii de cod arată continuarea comenzii respective 
pe rândul următor şi se foloseşte din raţiuni de lizibilitate a programului. înaintea acestui semn se 
lasă întotdeauna un spațiu. 


j(General) jmain jrj 


Option Explicit Sub maing i?", 

Dim intRaspuns A3 Integer >intRaspuns = Hatelor 
MsgBox("Doriti parasirea aplicaţie vbYesNo + 
vbQuestion, "Atentie”) 

If intRaspuns =vbYes Then tEnd End If 


Endsub GS*>: "Ju 


IL IE Chel! da eoe 


Figura 6.2. Program care foloseşte funcţia MsgBox (), aflat în etapa de execuţie 


Osecventa de cod care utilizează funcţia InputBox () pentru a prelua de la utilizator nişte date de 
intrare este afişată în figura 6.3. Programul este prezentat în etapa de execuţie, iar utilizatorul a scris deja 
valoarea 21 în caseta de text. 


| (General) 3 Imain 3 


Option Explicit 


Sub main () 
Dim strVarsta As String 
strVarsta = InputBox ("Introduceti varsta dumneavoastra", "Culegere 
date") 
MsgBox "Aveţi " £ strVarsta & " de ani." 
End Sub IIMWWI'BMIIJS; j*l! 
OK 
Introduceti varsta dumneavoastta 
Cancel 


Figura 6.3. Exemplu de utilizare a funcţiei InputBox () 
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Aceste funcţii simplifică proiectarea unui dialog utilizator-calculator. Dacă ele nu ar exista, ar trebui 
ca programatorul să realizeze două mici form-uri care să grupeze elemente grafice (de exemplu semnul 
de întrebare din figura 6.2), casete de text, etichete şi butoane în formatele afişate de MsgBox (), 
respectiv InputBox (), Visual Basic 

După cum ati observat din exemplele de mai sus, fiecare dintre cele două funcţii returnează câte un 
rezultat care corespunde acţiunii utilizatorului. 

Rezultatul funcţiei MsgBox () este o dată de tip Integer, ce indică butonul pe care l-a selectat 
utilizatorul. Se poate folosi o variabilă declarată în prealabil, care va reţine valoarea retumată de funcţie. 

Rezultatul funcţiei InputBox () este o dată de tip String, ce conţine textul scris de utilizator, 
dacă s-a apăsat butonul OK. Dacă utilizatorul apasă Cancel ori nu scrie nimic şi apasă OK, textul 
retumat este null-string (""). 

Observaţie: null-string (şirul nul) este un sir de lungime zero şi se simbolizează printr-o pereche 

de ghilimele care nu includ nici un spațiu. Nu se va confunda cu spaţiul, care se scrie " ", 


Mai multe despre funcţia MessageBox () 

Formatul acestei funcţii este: 

intRaspuns = MsgBox(<strMesaj> [,<intTip>] [,<strTitlu>] 
[,<fisier-help>, <context>]) 

Singurul argument obligatoriu este <strMesaj>, celelalte fiind opţionale. Este un sir de 
caractere (o variabilă sau o constantă, cu lungimea de maximum 1024 de caractere) care precizează 
textul mesajului afişat (exemplu: „Doriţi părăsirea aplicatiei?”). Se poate concatena combinaţia Chr 

(13) &Chr (10) pentru a afişa textul pe mai multe linii. în locul acestei combinaţii se poate folosi 
constanta vbCrLf. 

Argumentul <intTip> este o valoare numerică ce indică opţiunile care vor fi prezente în caseta de 
dialog: 

> care sunt butoanele afişate - spre exemplu, valoarea 0 arată că va apărea doar 

butonul OK, valoarea | indică prezenţa butoanelor OK şi Cancel, iar 4indică Yes 
şi No, ca în exemplul din figura 6.2; - 

care buton are focus-ul la afişarea casetei - 0 pentru primul, 256 pentru al doilea etc.; 

ce pictogramă din cele patru ale Windows-ului se afişează - „stop” (16), „întrebare” (32), 
„exclamaţie” (32) sau „informaţie”(64); 

Valoarea argumentului <intTip> se precizează scriind suma opţiunilor din cele trei categorii. 
Spre exemplu, 1 + 25 6+32 înseamnă butoanele OK şi Cancel, cu butonul Cancel selectat 
implicit şi cu afişarea semnului de exclamare. 

în tabelele 6.1, 6.3, 6.3 şi 6.4 sunt prezentate toate valorile posibile pentruoptiunile 
care compun argumentul <intTip>. Utilizarea literalilor predefiniti în locul valorilor numerice este 
recomandată pentru a elimina ambiguitatile. De exemplu, în loc de 
1+ 256+32 se poate scrie expresia: 

vbOKCancel+vbDefaultButton2+vbExclamation 
Observaţie: valoarea implicită a argumentului intTip este 0, ceea ce înseamnă afişarea doar 


a butonului OK. 
Tabelul 6.1. Butoanele folosite de funcția MsgBox () 


Valoare Literal predefinit Descriere 

0 vbOKOnly Afişează doar butonul OK 

1 vbOKCancel Afişează butoanele OK si Cancel 

2 vbAbortRetrylIgnore |Afişează butoanele Abort, Retry si 

Ignore 

3 vbYesNoCancel Afişează butoanele Yes, No si Cancel 
4 vbYesNo Afişează butoanele Yes si No 

5 vbRetryCancel Afişează butoanele Retry şi Cancel 
Tabelul 6.2. Simbolurile grafice (icon-urile) din funcția MsgBox () 

Valoare Literal predefinit Descriere 

16 vbCritical Afişează icon-ul Criticai Message 
32 vbQuestion Afişează icon-ul Warning Query 

48 vbExclamation Afişează icon-ul Warning Message 

64 vbInformation Afişează icon-ul Information Message 
Tabelul 6.3. Specificarea butoanelor implicite pentru functia MsgBox () 

Valoare Literal predefinit Descriere 

0 vbDefaultButtonl Primul buton este implicit 

256 vbDefaultButton2 Al doilea buton este implicit 

512 vbDefaultButton3 Al treilea buton este implicit 


768 vbDefaultButton4 Al patrulea buton este implicit 


Tabelul 6.4. Alte opţiuni ce pot fi incluse în argumentul int Tip al funcţiei MsgBox () 

Valoare Literal predefinit Descriere 

0 vbApplicationModal Fereastră modală la nivel de 
aplicație: utilizatorul trebuie să 
răspundă la mesaj înainte de a putea 
4096 vbSystemModal Fereastră modală la nivel de sistem: 
utilizatorul trebuie să răspundă la 
mesaj înainte de a putea continua 
16384 | vbMsgBoxHelpButton Adaugă butonul Help la fereastra 
MsgBox () - astfel se poate ajunge la 
65536 vbMsgBoxSetForeground | Specifică faptul că fereastra MsgBox 
() se afişează pe ecran deasupra 


524288 | vbMsgBoxRight Textul este aliniat la dreapta. 
1048576| vbMsgBoxRt lReading Textul apare in ordinea de citire d 
la dreapta la stânga (interfeţe in 


Din fericire, aceşti literali predefmiti se RoLalege dinsaj lista (yy i AiR erais asanismului 
Auto List Members prezentat în capitolul precedent. în aceeaşi figură se observă în acțiune şi tehnica 


Auto Quick Info. 

în tabelul 6.4 ati întâlnit termenul „modal(ă)”. Se spune despre o fereastră că este modală dacă 
utilizatorul trebuie să încheie dialogul din fereastra respectivă pentru a putea continua lucrul şi nemodală 
dacă poate ignora fereastra respectivă, trecând în alte ferestre. Caracterul modal poate fi: specific 
aplicației (atunci când la afişarea ferestrei se blochează doar aplicaţia curentă) sau specific sistemului, 
atunci când se blochează întregul sistem (nu mai poate rula nici o altă aplicaţie). 

Implicit, o casetă de dialog este modală la nivel de aplicaţie. Pentru a indica o casetă de dialog 
modală la nivel de sistem se utilizează pentru <intTip> valoarea 4096 sau literalul 
vbSystemModal (se recomandă să se definească astfel doar la erorile grave). Pentru a afişa o fereastră 
modală se poate scrie: 

Dim intVerif As Integer 
intVerif = MsgBox("Ati introdus o data eronata. Continuati?", ' 
vbQuestion + vbYesNoCancel + vbApplicationModal, 


"Semnalar roare") 
| (General) v| jmain 3 Wâgkkiâ 
k 
Option Explicit — ~ 
Sub main () Bi3 
Dino intRaspuns As Integer E 
intRaspuns=HsgBox("Doriti parasirea aplicat iei",vbyesj 
End Sub MsgBoxiPrompUBiittons AsVbMsgBoxStyle = v 0 vbOKCancel Al| As VbMsgBoxResult 


mvbOKOnly I 
0 vbQuestion 
© vbRetryCancel 


0 vbSystemModal fMod 
Alpha 
0 vbYesNoCancel HSI 


Figura 6.4. Asistenţă on-line la scrierea funcţiei MsgBox () 


Argumentul <strTitlu> precizează textul ce se va afişa în linia de titlu a casetei de dialog. Dacă 
este omis, Visual Basic afişează implicit numele proiectului curent. 

Argumentele <fişier-help> şi <context> permit precizarea opțională a numelui unui fişier 
de ajutor (creat anterior) şi a unei rubrici care se referă la situaţia în cauză. In astfel de condiţii, help-ul se 
va activa daca în loc de a alege butoanele Ok, Cancel, Yes, No etc. se apasă tasta FI. 

Reamintim că funcţia MsgBox () retumează o valoare (de tip Integer) ce indică butonul pe care 
l-a selectat utilizatorul. Răspunsul este specificat printr-o valoare numerică sau un literal predefinit (vezi 
tabelul 6.5). 


Tabelul 6.5. Valorile returnate de MsgBox () 


Valoare Literal predefinit Descriere 

1 vbOK A fost selectat butonul OK. 

2 vbCancel A fost selectat butonul Cancel. 
3 vbAbort A fost selectat butonul Abort. 
4 vbRetry A fost selectat butonul Retry. 
5 vblgnore A fost selectat butonul Ignore. 
6 vbYes A fost selectat butonul Yes. 

7 vbNo A fost selectat butonul No. 


Pentru a testa răspunsul utilizatorului se poate folosi deci o variabilă de tip Integer declarată in 
prealabil (intRaspuns în tabelul 6.2) ori se poate face testul direct cu una dintre constantele din 
tabelul 6.5, ca în exemplul următor: 

If vbYes=MscBox ("Doriţi parasirea aplicatiei?", 


vbYesNotvbQuestion, "Atentie") Then End Else 
MsgBox "V-ati razgandit..." 
End If 


Se face astfel „economie” de o variabilă. 
Atenţie! Respectaţi concordanța dintre butoanele afişate şi răspunsul cerut de la utilizator. Astfel, 
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codul ce urmează conţine o eroare copilărească: 
If vbYes=MsgBox ("Doriţi parasirea aplicatiei?", 
vbOKCancelt+vbQuestion, "Atentie") Then End Else 
sgBox "V-ati razgandi tVișual Basic 
End If 
Indiferent de butonul selectat de utilizator, programul va afişa „V-aţi răzgândit... . Hstc normal ca, din 
moment ce s-au afişat butoanele OK şi Cancel, răspunsul utilizatorului să nu fie niciodată vbYes... 
Ati remarcat în exemplele precedente utilizarea funcţiei MsgBox () şi în formatul: MsgBox 
<strMesaj> [,<intTip>] [,<strTitlu>] 
[,<fisier-help>, <context>] 
Visual Basic permite utilizarea multora dintre funcţiile predefinite ca şi proceduri (adică secvenţe de 
cod de la care nu se aşteaptă nici un rezultat). Vom folosi acest format atunci când dorim să oferim 
utilizatorului un text pur informativ, care nu influenţează derularea ulterioară a aplicaţiei. în acest caz 
nu se utilizează parantezele. 


Mai multe despre funcţia InputBox () 
După studierea funcţiei MsgBox (), InputBox () va fi mai uşor de înţeles, datorită unor 
similitudini. O diferență majoră este că MsgBox () arată - prin valoarea numerică retumată - care 
este tasta selectată de utilizator, în timp ce rezultatul lui InputBox () este un şir de caractere care 
conţine răspunsul introdus de utilizator. 
Formatul general al funcţiei este: 
strRaspunS = InputBox(<strMesaj> [,<strTitlu>] 
[,<strlimplicit>] [,<intPozxX>, <intPozY>]) 
Pentru argumentul <strMesaj > sunt valabile specificaţiile de la funcţia MsgBox (), ca de altfel 
şi pentru argumentul <strTitlu>. Argumentul <strilmplicit> este valoarea implicită 
afişată la execuţie în caseta de text din fereastra InputBox () — utilizatorul poate să menţină sau 
să schimbe această valoare. 
Prin <intPozX> şi <intPozY> (exprimate în twips) se specifică poziţia exactă pe ecran in 
care să se afişeze fereastra InputBox (). Dacă se omit aceste coordonate, Visual Basic va plasa 
caseta la mijlocul ecranului în plan orizontal, iar în plan vertical la aproximativ o treime din înălţimea 
acestuia, măsurată de la marginea superioară. 
Casetele de intrare conţin întotdeauna butoanele de comandă OK şi Cancel. Reamintim că, dacă 
utilizatorul selectează OK, valoarea introdusă este atribuită variabilei specificate. Dacă se apasă 
Cancel, variabila va avea valoarea "" (şirul nul). Această particularitate are consecinţe în ceea ce 
priveşte validarea datelor introduse. 


Să considerăm codul din exemplul următor: 
Dim intVarsta As Integer 
intVarsta = InputBox ("Introduceti varsta dumneavoastră", 
"Culegere date") 
MsgBox "Aveţi " & intVarsta & " de ani." 
Rezultatul execuţiei acestui cod va 11 caseta de intrare din figura 6.5. Valoarea introdusă de utilizator 


va fi atribuită variabilei specificate. în exemplu am folosit o variabilă 


numerică, de tip Integer (intVarsta). Nu intervine nici o problemă Ia execuţie atât timp cât 


utilizatorul introduce cifre în caseta de intrare (Visual Basic va converti tacit şirul de cifre într-un 
număr). Dacă utilizatorul nu introduce nimic şi apasă OK sau apasă butonul Cancel, atunci apare o 
eroare fatală generată de incompatibilitatea dintre intVarsta (variabilă numerică) şi rezultatul 
implicit (şirul nul). O soluţie de evitare a acestei probleme este folosirea de variabile de tip String 
şi conversia lor explicită (cu funcţiile pe care le vom parcurge într-un capitol următor) în tipurile 
numerice dorite, dar numai după ce s-a testat că răspunsul nu este şirul nul. 


BBS ;— 
Vv 9 e 
Introduceti varsta dumneavoastra OK 
e 
o. Cancel J 
[25 


Figura 6.5. O casetă de intrare pentru preluarea vârstei utilizatorului 


întrebări şi exerciţii 


1. Care este diferenţa dintre o casetă de mesaj şi o casetă de text? 

2 De ce este mai eficientă utilizarea literalilor predefiniti decât a constantelor numerice? 
3 Adevărat sau fals? Funcţia MsgBox () se foloseşte pentru a culege date de la tastatură. 
4. Ce înseamnă o fereastră modală? 

5. Câte icon-uri se pot afişa într-o casetă de mesaj? Câte se pot afişa concomitent? 

6. Adevăratsau fals? Se pot transmite unei funcţii mai multe argumente. 

7. Ce rol au valorile implicite într-o casetă de intrare? 


8. Adevărat sau fals? Funcţia MsgBox () returnează o valoare din 7 posibile. 
9. Concepeţiun program care va afişa o casetă de intrare prin care utilizatorul să-şi declare 
cetăţenia. Specificati ca valoare implicită cetăţenia română. 


Casete de mesaj si casete de introducere a datelor 
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Capitolul 7 
STRUCTURI DE CONTROL 


Din teoria programării se ştie că algoritmul de rezolvare a unei probleme se codifică utilizând 
structurile de control. Acestea arată de fapt căile pe care le poate urma prelucrarea datelor. 


instrucțiune | 


Adevărat 


instrucțiune | instrucțiune | 


Instructiune 2 


Instructiune 2 


Instructiune 2 Instructiune 3 | 


Instructiune n 
Y 


a b c 


Figura 7.1. Structurile de control fundamentale 


Structurile de control fundamentale sunt secvența (a), selecția (b) şi iterația (c), iar reprezentarea 
grafică din figura 7.1 arată succesiunea în care se vor executa instrucțiunile programului. 

Structurile de control din categoriile b) şi c) cuprind condiții; în funcție de rezultatul evaluării 
acestora (adevărat sau fals), acțiunea ia un curs sau altul. Condițiile sunt construite cu ajutorul 
operatorilor de comparare. 


Operatorii de comparare 


în timp ce operatorii matematici produc ca rezultat valori numerice, operatorii de comparare sunt utilizați 
în expresii care produc rezultatul Adevărat sau Fals (True/ False). Rezultatul evaluării unei 
condiții este întotdeauna de tip Boolean, de unde şi cele două căi posibile de acțiune. întrucât 
operatorii de comparare se utilizează pentru construirea condițiilor, ei se mai numesc operatori 
conditionali. 


Tabelul 7.1. Operatorii de comparare 
Operator Exemplu 


> lblProfit.Caption > Estimat 


Descriere 


E 


Are rezultatul True (adevărat) 
atunci când valoarea din stânga 
este strict mai mare (numeric sau 


fs 


< Salariu < 1200000 


Are rezultatul True atunci când 
valoarea din stânga este strict 


mai mică 


(numeric sau alfabetic) 


Operator Exemplu 


Descriere 


Varsta = LimitaMin 


valoarea 


Are rezultatul 


True atunci când 
din stânga este egală 


Nume >= "Popa" 


Are 
valoarea 
sau egală 


rezultatul True 


atunci când 
din stânga este mai mare 
(numeric sau alfabetic) 


N <= IblNumar.Caption rezultatul True atunci când 
din stânga este mai mică 


(numeric sau alfabetic) 


Are 
valoarea 
sau egală 


O txtRaspuns.Text o "Da" 


Are rezultatul True atunci când 
valoarea din stânga este diferită 


Notă: dacă nu este adevărată condiţia construită cu oricare dintre operatorii de comparare, atunci 

rezultatul nu poate fi decât False (fals). 

De remarcat din tabelul 7.1 că operatorii de comparare se pot utiliza atât pentru valori numerice, cât 
şi pentru şiruri de caractere. La compararea şirurilor, trebuie să se ţină cont de codurile ASCII ale 
literelor. în această reprezentare A este 65, iar a este 83. Considerând o variabilă strRaspuns, valoarea 
„Da” este diferită de „DA”. 

Observaţie: Visual Basic nu face diferenţă între literele mari şi literele mici. Atunci cum este 

„Da” diferit de „DA”? Diferenţa litere mari - litere mici nu se referă la cuvintele-cheie (de exemplu, 
se poate scrie şi dim sau DIM, iar txtNumePren este acelaşi lucru cu 
ci la constantele de tip şir de caractere. Este o capcană în care începătorii cad 


declarația Dim 
txtnumepren) , 
adesea. 

Pentru exemplificarea comparatiilor, vezi tabelul 7.2. 


Tabelul 7.2. Rezultate comparații - exemple 


Comparaţie Rezultat 
>g| True 
4-1 False 
4 <8 True 
"Popa" <= "Popescu" True 
"Nu" <> "NU" True 
o>=o] True 
o<H HO True 
10 2 True 
2 >= 3 False 


Combinarea condiţiilor cu ajutorul operatorilor logici 


Condiţiile pot fi compuse din subconditii, prin utilizarea operatorilor NOT, AND şi OR (vezi tabelul 
7.3). Operatorul NOT (negatie logică) are ca efect inversarea valorii de adevăr a unei condiţii. Negatia 
trebuie utilizată cu atenţie şi numai dacă nu există alternativaStpestvd ¢@Gaptial din tabelul 7.3 exista o 
variantă mai simplă: strRasp<>"Da"). (Operatorul AND (,,si” logic) face ca o condiţie să fie 
adevărată dacă şi numai dacă subconditiile care o compun sunt ambele adevărate. Operatorul OR (,,sau” 
logic) face ca o condiţie să fie adevărată dacă cel putin una dintre subconditiile care o compun este 
adevărată. 

în scrierea unor asemenea condiţii compuse trebuie cunoscută prioritatea operatorilor logici. 
Ordinea în care se evaluează o condiţie este în mod normal de la stânga la dreapta, dar operatorii logici o 


pot schimba; cel mai important în ordinea prioritatii este Not, urmat de And şi Or. 
Tabelul 7.3.Utilizarea operatorilor logici 


Operator Exemplu Descriere 
And If (A > B) And (C <D) Are rezultatul True (adevărat) atunci când ambele condiţii sunt 
adevărate. 
Or If (A > B) Or (C < D) [Are rezultatul True (adevărat) atunci când măcar una dintre condiţii estel 
adevărată. 
Not If Not(strRasp = "Da") [Are rezultatul True (adevărat) atunci când condiţia evaluată este falsă şil 


invers. 


Pentru modificarea ordinii de evaluare implicite într-una dorită de programator se folosesc 
parantezele, care au exact acelaşi rol cu cele din aritmetica elementară. 


Exemplu: 
sngSalar>1000000 And 1=1 este adevărată doar daca 
sngSalar este mai mare de 1000000; 
sngSalar>1000000 Or 1=1 este adevărată oricând; 
sngSalar>1000000 And intAn=2001 Or 1=1 este 
adevărată oricând; 
sngSalar>1000000 And (intAn=2001 Or 1=1) este adevărată dacă şi numai dacă 
sngSalar este mai mare de 1000000 şi intAn este 2001. 


Observaţie: Atenţie la compatibilitatea tipurilor celor două valori supuse comparării. Cu alte 
cuvinte, nu se poate compara direct o valoare numerică cu un şir de caractere. O astfel de comparaţie 
generează un mesaj de eroare de tipul „Data type mismatch”, care indică nepotrivirea. 
Compatibilitatea tipurilor se referă la faptul că se pot compara două date numerice, chiar dacă sunt de 
tipuri diferite (de exemplu, Integer şi Single) .. 


Structuri alternative (selecţia) 
Instrucţiunea If 
Este probabil cea mai întâlnită instrucţiune în logica derulării unei aplicaţii. If evaluează o condiţie în 
urma căreia se execută una din două acţiuni posibile (specificate prin blocuri de instrucțiuni). 
Un format frecvent utilizat este: 


If <conditie> Then 
<bloc de instructiuni> 


End If 

Spre exemplu, considerăm că in calculul salariului la firma X se acordă un spor de 10% din salariu 
angajaţilor care realizează vânzări mai mari de 100 milioane lei în luna respectivă. Valoarea vânzărilor 
este introdusă de utilizator într-o casetă de text denumită txtVanzari. Pentru calculul sporurilor, se 
va scrie următoarea secvenţă de cod: 
If (txtVanzari.Text > 100000000) Then 

"se calcuieaza sporul cuvenit 

sngSporVanz = txtVanzari.Text * 0.1 
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"se cumuleaza sporul cuvenit la total sporuri 
sngSporuri = sngSporuri + sngSporVanz End If 

Datele introduse de utilizatori prin intermediul controalelor precum casetele de text tin de 
proprietatea Text, care este foarte ViSHa)Basictunci când se introduc cifre, Visual Basic le converteste 
tacit într-o valoare numerică cu care se pot realiza calcule. 

La execuţia secventei de mai sus se verifică dacă valoarea introdusă în caseta de text este mai mare 
de 100 de milioane. Când condiţia este adevărată, se calculează sporul cuvenit şi se adaugă sporul 
calculat la total sporuri. în caz contrar, nu se execută nimic. Poate părea ciudată formula de calcul pentru 
total sporuri. Matematic, semnul ,,=” arată egalitatea dintre cele două parti. în Visual Basic şi in multe 
alte limbaje, el are şi semnificaţia de atribuire: elementului din stânga i se atribuie valoarea din dreapta. 


în exemplul de fata s-a realizat actualizarea variabilei sngSporuri. O interpretare completa ar suna 
astfel: la valoarea precedentă (sngSporuri din membrul drept) se adaugă sporul realizat 
(sngSporVanz) şi se obţine o nouă valoare a totalului sporurilor (sngSporuri din membrul 
stâng). 
Observaţie: nu este obligatorie prezenţa parantezelor în scrierea condiţiei. Ele ajută doar la 
delimitarea acesteia de restul codului. Se recomandă, cum am mai menţionat, scrierea indentată a 
instrucţiunilor, pentru a urmări mai uşor logica prelucrărilor. 
O instrucţiune I f scurtă se poate scrie pe o singură linie, fară a fi necesar terminatorul End If, 
astfel: 


If <conditie> Then <instructiune> 


Instrucţiunea If... Then. . .Else 

in forma simplificată de mai sus, If execută o secvenţă de instrucţiuni doar atunci când condiţia 
testată este adevărată. Pentru a defini o altă secvenţă de instrucţiuni care să se execute atunci când 
condiţia este falsă, se utilizează formatul complet al lui If, astfel: 

If <conditie> Then <bloc de 
instructiuni 1> 

Else 
<bloc de instructiuni 2> 
Endlf 

Spre exemplu, considerăm că, in calculul valorii de plată corespunzătoare facturilor întocmite, firma 
X oferă o reducere de 5% pentru facturile care au valori mai mari de 20 de milioane lei. 
If (sngValFact >= 20000000) Then sngValDePlata = 
sngValFact * 0.95 Else 

sngValDePlata = sngValFact End If 

Un exemplu complex este prezentat în continuare. într-o casetă de intrare i se cere 
utilizatorului să specifice numele localităţii. Dacă utilizatorul a terminat dialogul prin butonul 
Cancel, atunci variabilei strLocalitate i s-a atribuit un şir nul (""). Dacă utilizatorul 
a introdus numele localităţii, acesta se va afişa într-o casetă de mesaj. 
Dim strlocalitate As String 
1! I se cere utilizatorului sa specifice numele localităţii ' 
Valoarea implicita este Iaşi 
strLocalitate = Input3ox ("Specificaţii localitatea", 


"Nume localitate", "Iasi") 
Se verifica localitatea introdusa If 
(strLocalitate = "") Then ! Utilizatorul a 
selectat butonul Cancel 

MsgBox "Nu ati introdus nici o localitate" 


Else 
' Utilizatorul a indicat localitatea. 

MsgBcx "Ati introdus localitatea " & strLocalitate 
End If 


Operatorii logici simplifică modul de scriere a structurilor alternative. în exemplul de mai jos, 
considerăm că o anumită taxă este 0 pentru cei care au vârsta sub 25 de ani sau peste 60 de ani. Fara 
operatorul logic Or, secvenţa s-ar scrie: 

If (sngVarsta < 25) Then 

sngTaxa = 0 

Else 
If (sngVarsta >60) Then 

sngTaxa = 0 End If End If Structuri de control 
Daca se utilizeaza operatorul logic Or, secventa este mai concisa: 

If (sngVarsta < 25) Or (sngVarsta >60) Then 

sngTaxa = 0 End If 


Instrucţiunea Select Case (structura alternativă generalizată) 

S-a observat din exemplele de mai sus că, pentru a codifica mai multe alternative, este posibilă 
imbricarea mai multor instrucţiuni If, dar cu cât numărul acestora este mai mare, cu atât urmărirea lor 
devine mai dificilă. Exemplul ce urmează vine în sprijinul acestei afirmaţii. 

If (intCategorie = 1) Then lblTitlu.Caption = 

"Grad didactic: Preparator" 
Else 
If (intCategorie = 2) Then lblTitlu.Caption = 
"Grad didactic: Asistent " 

Else 

If (intCategorie = 3) Then 

lblTitlu.Caption = " Grad didactic: Lector" 
Else 
If (intCategorie = 4) Then 
lblTitlu.Caption = " Grad didactic: Conferenţiar" 


Else 
If (intCategorie = 5) Then lblTitlu.Caption = " 
Grad didactic: Profesor" 
Else 
lblTitlu.Caption = "Personal nedidactic" 
End If End If End If End If End If 
Codul de mai sus devine putin mai clar dacă se foloseşte o variantă specială a instrucţiunii If, 


anume If...Then...ElseIf. Aceasta nu conţine decât un terminator 
End If. 
If (intCategorie = I) Then IblTitlu.Caption = 
"Grad didactic: Preparator" 
Elself (intCategorie = 2) Then 
IblTitlu.Caption = "Grad didactic: Asistent " 
Elself (intCategorie = 3) Then 
IblTitlu.Caption = "Grad didactic:Lector" 
Elself (intCategori = 4) Then 
IblTitlu.Caption =" Grad didactic: 
Conferentiar" 
Elself (intCategorie = 5) Then 
IblTitlu.Caption = " Grad didactic: Profesor" 
Else 
IblTitlu.Caption = "Personal nedidactic" 
End If 


O alternativă elegantă pentru astfel de situaţii este instrucţiunea Select Case, ce permite 
selecţia multiplă. Formatul ei este: 
Select Case <expresie> 


Case <valoarel> 


<b 
Case < 


loc de ins 


valoare2> 


<bloc de ins 


[Case 


<valoaren 


cbloc de ins 


[Case 
cb 
End Select 


Else 


loc de ins 


tructiuni> 
tructiuni> 


> 
tructiuni>] 


tructiuni>] 


Acest format pare, la prima vedere, la fel de dificil ca şi o secvenţă de If-uri imbricate. Se au in 


vedere mai multe valori posibile pentru <expresie>, 


care poate fi numerică sau şir de caractere. In 
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funcţie de valoarea efectivă a expresiei, se va executa un singur bloc de instrucţiuni. Dacă expresia are o 
valoare ce nu se regăseşte între valorile prevăzute se va executa - dacă s-a specificat - blocul de 
instrucţiuni de după Case Else (altfel, nu se execută nimic). Exemplul privind stabilirea gradului 
didactic este rescris cu ajutorul instr Sect Case. 

Select Case intCategorie 
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Case 1: IblTitlu.Caption = "Grad didactic: Preparator" 

Case 2: IblTitlu.Caption = "Grad didactic: Asistent " 

Case 3: IblTitlu.Caption = " Grad didactic: 
Lector" 

Case 4: IblTitlu.Caption = " Grad didactic: 

Conferenţiar" 

Case 5: IblTitlu.Caption = " Grad didactic: 
Profesor" 

Case Else: IblTitlu.Caption = "Personal nedidactic" 


End Select 
Deci, dacă variabila intCategorie ar avea valoarea 3, s-ar afişa în textul etichetei IblTitlu 


„Grad didactic: Lector”, execuţia continuând cu următoarea instrucţiune de după End select (dacă 
există). Orice altă valoare în afara celor de la 1 la 5 ar genera textul „Personal nedidactic”. 
Observaţie: se pot scrie două sau mai multe instrucţiuni pe aceeaşi linie dacă sunt separate prin 
caracterul 
pentru Select Case. Un prim format permite compararea expresiei cu o valoare, folosind alt 
operator decât cel de egalitate. Se scrie astfel: 


Select Case <expresie> 
Case Is <relatie> 
<bloc de instructiuni> 
Case Is <relatie> 
cbloc de instructiuni> 
[Case Is <relatie> 
*cbloc de instructiuni>] 


[Case Else 
<bloc de instructiuni>] 


End Select 
Un al doilea format posibil are în vedere mai multe intervale de valori in care poate să se încadreze 
<expresie>. 


Select Case <expresie> 
Case <expresiel> To <expresie2> cbloc de instructiuni> 
Case Cexpresiel> To Cexpresie2> cbloc de instructiuni> 


[Case Cexpresiel> To Cexpresie2> cbloc de instructiuni>] 
[Case Else 


cbloc de instructiuni>] 


End Select 
Există şi un format care foloseşte mai multe valori separate prin virgule, ca în exemplul: Select 
Case intCategorie Case 1,2,4,5 
IblTitlu.Caption = "Personal didactic" 
Case 3 
IblTitlu.Caption = "Cercetător ştiinţific" 


Case Else 
IblTitlu.Caption = "Personal nedidactic" 


End Select 

Mai mult decât atât, este posibilă şi combinarea formatului standard cu cele suplimentare descrise. 
Exemplul de mai jos prezintă o astfel de combinaţie, prin care se testează în diferite moduri valoarea 
variabilei sngMediaGen. Puteți încerca să rescrieti această secvenţă folosind instrucţiunea I f; 
numărați apoi câte linii de program ati obţinut! 
Select Case sngMediaGen 
Case Is c 5: IblFinal.Caption = "Situatie scolara neincheiata" Case 
9.15 To 9.99: IblFinal.Caption = "Bursa de studiu" 

Case 10: IblFinal.Caption = "Burca de merit" 
Case Else: IblFinal.Caption = "Nu este bursier." 


End Select 

Structuri repetitive (iteratia) 

Prin iteratie se înţelege o secvenţă de program a cărei execuţie se repetă, în funcţie de cerinţele aplicaţiei. 
Spre exemplu, o procedură care calculează numărul de puncte obţinute la finele anului 1 de toţi cei 1200 
de studenţi trebuie să se repete de 1200 de ori. Sau o procedură pentru actualizarea preţurilor produselor, 
care preia datele despre produse dintr-un fişier de date, se va repeta până când se ajunge la sfârşitul 
fişierului. 


Structura repetitivă Do While. .. Loop (executa-cat-timp) 
Este probabil cel mai frecvent utilizată în programele Visual Basic. în jargonul programatorilor, 
instrucţiunile repetitive se mai numesc bucle. Formatul general al instrucţiunii Do este: 
Do While <conditie> 


<bloc de instructiuni>] 
Exit Do] 
<bloc de instructiuni;»] 


Loop 
O variantă mai veche şi mai simplă este: 
While <conditie> 
<bloc de instructiuni>] 


Wend 
Instrucţiunile din cuprinsul buclei (una sau mai multe) se execută in mod repetat, cât timp condiţia 
testată este adevărată (structură repetitivă condiționată anterior). Prin Loop se marchează sfârşitul 
iteratiei. Dacă între timp condiţia devine falsă, programul continuă cu instrucțiunea ce urmează după 
Loop. Trebuie precizat aici că dacă din start condiţia este falsă, blocul de instrucţiuni nu se va executa 
nici măcar o dată! 
Atenţie! Există riscul unei bucle infinite, dacă nu se are în vedere o modalitate de actualizare a 
variabilei testate în <condi.ţie>. Să considerăm următorul exemplu: 
A = 0 Structuri de control 75 
Do While A = 0 
B =B + 1 Loop 
Instrucţiunea B = B + 1 se execută la infinit, întrucât condiţia A = 0 este şi rămâne mereu 
adevărată - nu există nici o instrucţiune care să actualizeze valoarea variabilei A. Dacă ,,gresiti” în felul 
acesta, folosiţi un mijloc mai puţin elegant de a opri programul: combinaţia CTRL + Break. 
Oarecum amuzant este şi exemplul următor, situaţie în care programul va dura un timp nedefinit. 
Do While True 
Loop 
După cum se observă, blocul de instrucţiuni din interiorul buclei se poate omite. 
Să considerăm în continuare un exemplu pentru o rutină de introducere şi validare a vârstei, care 
trebuie să ia valori între 18 şi 55 de ani. 
Dim strVarsta As String 
Dim intVarsta As Integer 
1 Se preia valoarea introdusa de utilizator 
strVarsta = InputBox ("Ce varsta aveti?", "Preluare date") 
1 Se verifica daca s-a introdus o valoare 
If (strVarsta = Then 
End ' se incheie aplicaţia End 
If 


' Se converteste valoarea introdusa intr-un număr 
' cu ajutorul funcţiei Val() intVarsta = 
Val (strVarsta) 


' Validarea vârstei introduse 
Do While ((intVarsta < 18) Or (intVarsta > 55)) 
MsgBox "Pentru a putea participa, trebuie sa aveţi" &_ 
" varsta intre 18 si 55 de ani", vbExclamation, "Eroare!" 
' se solicita din nou varsta strVarsta = InputBox ("Ce 
varsta aveti?", "Preluare date") 


ł daca s-a apasat Cancel, abandonam 


If (strVarsta = "") Then Exit Do End 
Taf 

intVarsta = Val(strVarsta) 

Loop 


If intVarsta = 0 Then 
End 
Else 


sgBox "Deci aveti " 4 intVarsta & " ani." 

End If 

Mesajul de eroare (vezi figura 7.1) se va afişa doar dacă utilizatorul a introdus o valoare mai mică decât 
18 sau mai mare decât 55, afişarea repetându-se cât timp condiţia este adevărată. 

Clauza Exit Do, care este opţională, realizează părăsirea buclei Do...Loop înainte de sfârşitul 
acesteia (de obicei când s-a întrunit o condiţie suplimentară). 


De remarcat utilizarea funcţiei Val () , cu scopul de a converti şirul de caractere strVarsta într-o 
variabilă de tip Integer. Sigur nu este posibilă conversia dacă utilizatorul introduce valoarea 
„douăzeci”! 


t \ Pentru a putea participa, trebuie sa aveti varsta intre 18 si 55 de ani 


‘OK 


Figura 7.1. Mesaj de eroare 


De asemenea, trebuie remarcat că secvenţa este redundantă fiindcă se reia scrierea funcţiei InputBox 
() şi se repetă secvenţa de verificare a introducerii datelor. Veţi vedea în continuare cum se elimină 
aceste redundante. | : 
ne Structura repetitiva Do Until ee Basis p (execută-pănă-când) 
Spre deosebire de Do While, Do Until execută un bloc de instrucțiuni cât timp o condiție este 
falsă. Altfel spus, până când o condiție devine adevărată (structură repetitivă condiționată posterior). 
Nu beneficiaţi de nici un avantaj folosind Do While sau Do Until. Trebuie aleasă forma care 
se potriveşte cel mai bine (în viziunea programatorului) unei situații date. Formatul general al 
instrucţiunii Do Until este: 
Do Until <conditie> 
[<bloc de instructiuni>] 
[Ex.it Do] 
[<bloc de instructiuni>] 
Loop 
Tot ceea ce s-a discutat la Do While rămâne valabil (cu excepţia faptului că bucla se execută cât 
timp condiţia este falsă). Exemplul anterior se poate rescrie astfel: 
Do Until ((intVarsta >= 18) And (intVarsta <= 55)) 
MsgBox "Pentru a putea participa, trebuie sa aveţi" & _ 
" varsta intre 18 si 55 de ani", vbExciamation, "Eroare!" 
1 se solicita varsta 
strVarsta = InputBox ("Ce varsta aveti?", "Preluare date") 
ł se verifica daca s-a introdus o valoare 
1 daca s-a apasat Cancel, abandonam If 


(strVarsta = "") Then Exit Do End If 
intVarsta = Val(strVarsta) 
Loop 


If intVarsta = 0 
Then End 
Else 


MsgBox "Deci aveti " & intVarsta & " ani." 
End If 
Observaţie: De această dată, operatorul logic folosit in condiţie este And (nu întâmplător l-am 
scris în caractere bold), întrucât ne interesează să solicităm vârsta până ce aceasta se situează în 
intervalul [18,55], pe când la exemplul anterior se solicita vârsta atât timp cât nu era în unul din 
intervalele (0,18) ori (55, 327675). 
Există nişte variante ale instrucţiunilor Do While şi Do Until care permit execuţia 
necondiționată a unui bloc de instrucţiuni cel puţin o dată: 
Do 
[<bloc de instructiuni>] 
[Exit Do] 
[<bloc de instructiuni>] 
Loop While|Until <conditie> 
Execuţia blocului de instrucţiuni se reia sau nu, în funcţie de rezultatul evaluării condiţiei. 
Cu un astfel de format, secvenţa de cod anterioară devine mai eficientă: 
Dim strVarsta As String 
Dim intVarsta As Integer Do 
1 Se preia valoarea introdusa de utilizator 


strVarsta = InputBox("Ce varsta aveti?", "Preluare date") 
1 Se verifica daca s-a introdus o valoare If 
(strVarsta = "") Then Exit Do End If 


intVarsta = Val(strVarsta) 
If ((intVarsta < 18) Or (intVarsta > 55)) Then ! Valoarea 
introdusa nu respecta restrictia 
MsgBox "Pentru a participa, trebuie sa aveţi" & _ 
" varsta intre 18 si 55 de ani", 
vbExclamation, "Eroare!" 


End If 
Loop While ((intVarsta < 18) Or (intVarsta > 55)) 
If intVarsta = 0 Then End 
Else 
MsgBox "Deci aveti " & intVarsta & " ani. 
End If 

Plasând funcţia InputBox () la începutul buclei, aceasta se va executa o dată pentru a cere 
introducerea vârstei şi se va repeta doar dacă valoarea introdusă nu respectă restrictia stabilită. 


" 


Instrucţiunea For. . . Next 

Codifică structura repetitivă cu număr definit de paşi, în care o secvenţă de cod se repetă de un 
număr specificat de ori. Formatul de utilizare este: 

For <contor> = <val-start> To <val-stop> [Step 


5 Fiindcă e de tip Integer. 


<increment>] 
[<bloc de instructiuni>] 
[Exit For] 


[<bloc de instructiuni>] 
Next <contor> 
Repetarea este controlată de o variabilă - <contor> - care ia valori într-un interval specificat. 
Variabila nu trebuie declarată anterior: ea primeşte o valoare inițială (<val- start>). După o 
execuţie, variabila este incrementată/decrementată cu valoarea specificată prin clauza Step (implicit se 
consideră valoarea 1), apoi comparată cu valoarea finală (<val-stop>). Dacă nu a ajuns la valoarea 
finală, execuţia blocului de instrucţiuni se reia. In caz contrar, execuţia trece la linia de după Next. 


Exit For are cam acelaşi rol ca Exit Do dela comenzile Do. . . Locp. Un exemplu simplu: 
intSuma = 0 
For intNumar = 1 To 10 

intSuma = intSuma + intNumar 


Next intNumar p 

Secvența de mai sus calculează suma numerelor de la 1 ia blur i (OEI or este intNumar, 
ce are valoarea iniţială 1 şi valoarea finală 10 (pasul este 1). int Suma este variabila care va reda suma 
numerelor de la 1 la 10, fiind iniţializată cu valoarea 0. La prima execuţie a buclei, intNumar are 


valoarea 1, valoare care se adună la intSuma: intSuma = intSuma + 1 


Când se ajunge la Next, intNumar se realizează incrementarea variabilei-contor cu 1, astfel că 
intNumar va avea valoarea 2, valoare ce va fi adunată la intSuma: intSuma = intSuma + 2 

Repetarea se va face în mod evident de 10 ori, până când intNumar ajunge la valoarea 
10, ce va fi adunată la intSuma: intSuma 

= intSuma + 10 

După a 10-a execuţie, instrucţiunea Next va duce intNumar la valoarea 11, care este mai mare 
decât valoarea finală, astfel că se produce ieşirea din buclă, continuând cu următoarea instrucţiune de 
după Next. 

Sigur că adunarea numerelor de la 1 la 10 se făcea mult mai uşor printr-o singură linie de cod: 
intSum =1 + 2 + 3 + 4 + 5 + 6 + 7 + 8 + 9 + 10. Dar dacă vroiam să adunăm 
numerele de la 1 la 100? Sau de la 1 la 1000? Instrucţiunea propusă mai sus nu mai este la fel de uşor de 
scris. în schimb, în secvenţa For ... Next s-ar fi modificat doar valoarea finală pentru variabila de 
control (For intNumber =1 To 100). 

Dacă este necesar se poate lucra cu un pas negativ, ca în exemplul ce urmează: 

For intNr = 5 To i Step -l Beep 
Next intNr 
Această secvenţă produce de 5 ori un semnal sonor (instrucţiunea Beep), realizând pentru 


intNr numărătoarea inversă (valoarea de start este mai mare decât valoarea de oprire de data aceasta). 


Prezentăm şi un exemplu care utilizează clauza Exit For: 
For intN = 1 To intNrSalariati 

sngSalariu = Val(strSalariu) 

If (sngSalariu = 0) Then Exit For 


Next intN 
in exemplul de mai sus, am pornit de la ideea ca daca valoarea salariului este 0, se produce iesirea 


din buclă. De regulă, Exit For, caşiExit Do, sunt executate în contextul unei instrucţiuni If. 


Observaţie: în mod similar se poate utiliza în cadrul unei proceduri instrucţiunea Exit Sub, 
care realizează ieşirea forţată din procedură. 


întrebări şi exerciţii 

1. Ce rol au codurile ASCII în compararea logică? 

2. Care dintre următoarele comparații produc rezultatul True? 
a. 25 <= 25 
b. "a" >="B" 
c. O<-l 


77 


78 


w 


OSA 


15. 
16. 


17. 


18. 


d. 234.32 >234.321 
Adevărat sau fals? Instrucţiunea End If nu este necesară atunci când If este scrisă pe o singură linie. 
Cu care instrucțiune se poate înlocui o secvenţă de If... Then ...Else imbricate? 
Ce se întâmplă dacă toate variants ALBAS Structură Case esueaza şi nu este definită opţiunea 


Case Else? 
Ce este greşit în următoarea structură I f ? 


If (inta < 1) And (inte >= 8) Then 
lblRez.Caption = "SUB LIMITA" 
Else 
lblRez.Caption = "PESTE LIMITA" 
End Else 
Câte variante de instrucţiuni Do există? 
Adevărat sau fals? Do... Loop While şi Do While ...Loop sunt identice sub toate 
aspectele. 
Ce diferenţă este între Do ... LoopWhile şi Do... Loop Until? 
. Care dintre următoarele bucle verifică condiţia la început:Do Until sauDo. ..Loop 
Until? 


. în ce fel se poate ieşi dintr-o buclă infinită? 
. De ce se utilizează funcţia Val () pentru valorile controalelor şi cele returnate de 


InputBox {)? 


. Adevărat sau fals? O buclă For poate număra invers (descrescător). 
. De câte ori se va repeta structura următoare? 


intl = 10 
do While intl >= 1 
intl = intl - 1 Loop 
Adevărat sau fals? Instrucţiunea Exit termină aplicaţia curentă. 
Rescrieti următoarea structură imbricata, astfel încât să o transpuneti într-o singură structură 


If (A > 3) Then 
If (B > 10) Then 
lblAns.Caption = "Yes" 
End If End If 
Rescrieti următoarea structură If pentru a elimina operatorul Not . 
If Not(X < 10) Or Not (Y >= 20) Then 


Proiectati un form care conţine o etichetă, alături de o casetă de text şi un buton de comandă. 
Eticheta precizează utilizatorului să introducă un număr de la 1 la 10. Atunci când utilizatorul 
execută clic pe buton, acesta va verifica dacă în caseta de text s-a introdus un număr şi dacă acesta 
este în intervalul 1-10, afişând o casetă de mesaj în caz de eroare. Dacă s-a introdus un număr valid, 
să se genereze un semnal sonor (beep) de un număr de ori egal cu valoarea specificată de utilizator. 
Notă: pe unele sisteme s-ar putea să nu se audă beep-ul, întrucât frecvenţa şi durata tonului depind 
de particularitatile hardware-ului. 


Capitolul 8 
REALIZAREA UNEI APLICAȚII FUNCŢIONALE 


Se vor combina în cele ce urmează toate cunoştinţele dobândite până acum în scopul realizării unei 
aplicaţii simple (vezi figura 8.1). 


CALCUL VALOARE VIITOARE 


Suma depusa lunar (lei) 
Bata anuala a dobânzii (80 pentru 80%) 


Durata depunerilor (in luni) 


A CALCULEAZA 
TjggJ 


Valoarea viitoare este! 


IEȘIRE 


Figura 8.1. Form-ul principal al aplicaţiei 


Aplicația prezentată îşi propune calculul valorii viitoare a unei investiţii derulate prin depunerea 


periodică a unei sume fixe, în condiţiile unei rate a dobânzii date. 
să >, Ts d+r"-1 
Formula de calcul este urmatoarea: Vy = Sp * --------------------- 


în care Vy este valoarea viitoare, Sp este suma depusă periodic, r este rata dobânzii, iar n este 
numărul de perioade în care au loc depunerile. Vom avea în vedere depuneri lunare, transformând 
rata anuală a dobânzii (din figura 8.1) în rată lunară, prin împărțire la 12. Primii paşi care se parcurg 
sunt: 


1. selectare File | New Pro j ect şiapoi dublu clic pe Standard EXE; 


2. modificarea proprietăţilor form-ului: pentru Name se scrie frmCalculVal Viitoare, iar 
pentru Caption: Calcule financiare; 

3. redimensionarea form-ului (ceva mai mare decât dimensiunile implicite) şi centrarea pe ecran cu 
ajutorul proprietății StartUpPosition care se setează cu 2- CenterScreen; 


40 conform modelului din figura 8.1, se sie i pa hi casete de text. Mai întâi 
eticheta cu titlul form-ului, care se denumeşte IblTitlu şi ale cărei proprietăţi se definesc 
astfel: Alignment: 2-Center, Borderstyle: 1-Fixed 
Single, Caption: CALCUL VALOARE VIITOARE, Font: Lucida 
Sans Unicode, Bold, 22; 

5. se plasează apoi 3 perechi etichetă-casetă de text, ce vor fi utilizate pentru 
introducerea datelor. Se observa că pentru etichete s-au definit combinaţii directe (Alt + S, 
Alt+R, Alt + D). Deşi etichetele nu pot deţine focus, prin aceste combinaţii se ajunge 
la casetele de text care sunt pe aceeaşi linie cu etichetele. Prima etichetă, pentru suma depusă 
lunar, se defineşte prin următoarele valori ale proprietăţilor Name:  IbISuma, 


Alignment: 1-Right Justify, 
Caption: SSuma depusa lunar:, Font: Georgia, Bold, 14, iar 
prima caseta de text prin: Name: txtSuma, Alignment: 0- 


LeftJustify, Font: Arial Black, Regular, 12. 


Multiplicarea controalelor prin copiere 

în aplicația propusă, cele trei etichete şi cele trei casete de text sunt identice (cu excepția numelui şi a 
textului afişat de etichete). De aceea, în loc să repetăm definirea pentru celelalte două, vom utiliza 
mecanismul clipboard din Windows, prin comenzile Copy (Ctrl+C) şi Paste (Ctrl+V) din 
meniul Edit. Se vor selecta cele două controale (se menţine apăsat Ctrl în timp ce se execută clic 


pe fiecare sau se delimitează cu ajutorul mouse-ului zona din jurul celor două controale), se dă 
comanda Copy, urmată de comanda Paste. Va apărea următorul mesaj de avertizare: You aiready 
have a control named < mime-control>. Do you want to create a control array? (vezi figura 8.2) care 


se repetă de atâtea ori câte controale s-au selectat înainte de comanda Copy. 


M. You aiready have a control named '"IblSuma' 
foi 


Do you want to create a control array? Help 


[ Yes j No 


Figura 8.2. Mesaj solicitând crearea unui array de controale 

Un array (listă, vector) de controale înseamnă mai multe controale de acelaşi fel, cu acelaşi nume, 
identificarea fiecăruia realizându-se prin valoarea unei proprietăţi numite Index. Se vor exemplifica 
aceste liste de controale la sfârşitul capitolului. Deocamdată se răspunde negativ la întrebarea de mai 
sus şi la cea care urmează pentru caseta de text. Refuzând crearea unei liste, Visual Basic va crea o 
etichetă nouă, Labei 1 şi o casetă de text nouă, Textl. 

După comanda Paste, se modifică proprietăţile Name: lblRata, respectiv 
txtRata şi Caption (pentru etichetă): Rata anuală a dobânzii (80 pentru 8 0%). 
Celelalte proprietăţi nu se modifică, rămân valorile „împrumutate” de la controlul copiat 
(IbISuma) . 

Printr-o nouă comandă Paste, se realizează alte 2 copii, pentru care se fac aceleaşi modificări - 
Name: lblDur, respectiv txtDur, iarCaption: Durata 
depunerilor (in luni). 

în fine, repetând comanda Paste se obţine o nouă pereche etichetă - casetă de text, pe care o 
vom folosi pentru afişarea valorii viitoare calculate. Proprietăţile se modifică astfel Name: 


lblValV, Caption: Valoarea viitoare este (pentru etichetă) şi 
pentru caseta de text — Name: txtValV, Locked: True (conţinutul casetei nu 
poate fi modificat de către utilizator), Tabstop: False (nu poate deţine focus), 


ToolTipText: Valoarea capitalizată la sfârşitul perioadei de 
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depuneri (acest text se va afişa la execuţie, atunci când utilizatorul plasează cursorul mouse-ului 
pe caseta de text). 
Observaţie: caseta de text txtValV se poate înlocui cu o etichetă care să afişeze valoarea 
calculată (nu ar mai fi necesară în acest caz proprietatea Locked, întrucât conţinutul unei 
etichete nu poate fi modificat de către utilizator). Este o opţiune la latitudinea programatorului. 
Proiectarea form-ului se încheie cu două butoane: unul pentru calcul şi celălalt pentru părăsirea 


aplicaţiei. Primul se va defini prin Name: cmdCalcul, Caption: 
Calculează, ToolTipText: Calculeaza valoarea viitoare. Al doilea 
buton are proprietăţile Name : cmdlesire, Caption: &lesire, 


ToolTipText: Părăsire aplicaţie. 


Adăugarea codului în procedurile-eveniment 
în primul rând, se va adăuga cod pentru butonul de ieşire: dublu clic pe acest buton va deschide 


fereastra Code, în care se va scrie instrucţiunea End pentru încheierea aplicaţiei: 
Private Sub cmdlesire Click () 
End End E 
Sub 

în forma în care este acum. aplicația executată va prezenta form-ul proiectat (se poate 
vedea dacă form-ul şi elementele sale apar pe ecran conform intenției programatorului), dar 
nu se va executa nimic util - cu excepţia butonului Ieşire prin care se părăseşte aplicaţia. 

Cea mai mare parte a codului este ataşată butonului cmdCalcul, aici realizându-se 


citirea datelor, calculul şi afişarea rezultatelor. Următoarea secvenţă de cod corespunde 

procedurii-eveniment clic ataşată butonului cmdCalcul: 

Private Sub cmdCalcul Click () 

‘os . m. 

1 sngRataeste rata anuală a dobânzii 

' intDurata este numărul de lunide realizare a depunerilor 

' sngSumaeste suma depusă lunar 

' sngValVeste valoarea viitoare calculata 
Dim sngRata As Single, sngSuma As Single, sngValV As Single 
Dim intDurata As Integer 


* [7 m* rfj.* i 5 < 
sngSuma = txtSuma.Text 
sngRata = txtRata.Text / 100# 
intDurata = txtDur.Text 
sngValV = sngSuma * . + sngRata/12)"intDurata - 1) / sngRata/12 


txtValV.Text = sngValV End Sub 

S-a utilizat proprietatea Text a casetelor dc text, pentru a reda valorile introduse de utilizator. 
Deci, prin txtSuma . Text se înţelege valoarea scrisă de utilizator in caseta de text. De precizat 
că Text este proprietatea implicită pentru o casetă de text. Deci, dacă se specifica doar txtSuma, 
Visual Basic considera că este vorba despre proprietatea Text. La fel IbISuma. Caption este 
echivalent cu IbISuma (deci Caption este proprietate implicită). 

Atenţie ! în mod similar, fiecare control de pe form are o proprietate implicită. Totuşi, definiti în 

mod explicit proprietăţile controalelor referite (cu excepţia etichetelor şi casetelor de text), pentru 


a evita confuziile. 

Secvența dc încheiere, ataşată butonului Ieşire, poate fi perfecționată astfel: 
Private Sub cmdlesire Olick() 

1 se descarca form-ul si se incheie aplicaţia 
Unload frmValViitoare End Sub 


Instructiunea Unload 
Este utilizată pentru a descărca form-ul din memoria de lucru şi a restabili valorile controalelor 


82. Soke i Visual Basic 
acestuia la valorile iniţiale. 


In mod normal, această instrucţiune nu este absolut necesară în aplicaţiile care lucrează cu un 


singur form - este cazul exemplului de fata, în care prin instrucţiunea End se termină aplicaţia. In 
mod normal, pentru a descărca din memorie un form (fără a termina în mod neapărat aplicaţia) se va 
utiliza Unload. Cum f rmValViitoare este form-ul principal (şi unic) al aplicaţiei, 
instrucţiunea Unload f rmValViitoare determină finalul aplicaţiei, nemaifiind nevoie de 
End. 

Există şi o variantă „prescurtată”, prin care se închide form-ul curent astfel: 
Private Sub cmdlesire Click() 


1 se descarca form-ul si se incheie aplicaţia 
Unload Me End Sub 


Varianta aceasta se utilizează într-o procedură-eveniment care tine de un anumit form, Me fiind 


un sinonim pentru form-ul curent. Dacă se doreşte descărcarea unui form din codul altui form sau 
dintr-un modul, atunci se foloseşte Unload <nume-form>. 


Retusuri finale 

Aplicatia in faza de executie ar trebui sa arate ca in figura 8.3. Ce-ar mai fi de facut? Ar trebui 
modificat formatul de afişare a rezultatului final (afişarea zecimalelor este inutilă in condiţii de inflaţie 
mare, nu?). Există in Visual Basic o funcţie denumită Format (), prin care se schimbă modul de 
afişare pentru valori numerice sau şiruri de caractere. Se va discuta în detaliu această funcţie într-un 
capitol viitor. 

Formatul său general este: Format (variabilă, strFformat). Pentru moment o putem 
utiliza pentru a afişa valoarea viitoare în format cu 0 zecimale şi cu separarea grupurilor de 3 cifre 
(după regulile anglo-saxone), astfel: txtValV.Text = Format (sngValV, "444, ##0") 

Efectul se vede în figura 8.4. 

Observaţie: dacă un anume format se va utiliza de mai multe ori în cadrul unui program, se 

poate declara o variabilă de tip şir cu valoarea respectivă, numele ei fiind apoi utilizat în funcţia 


Format () în locul formatului propriu-zis, de oricâte ori e nevoie: 
strFormatl = "###, ##0" 
txtValV.Text = Format(sngValV, strFormatl) 


-!Lixl 
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Figura 8.3. Aspectul aplicatiei in etapa de executie 
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j CALCULEAZA J 


Valoarea viitoare este: 73,964 


Figura 8.4. Modificarea formatului de afisare 


Tratarea erorilor 

Totul s-a desfăşurat corespunzător la testarea aplicaţiei, dar asta nu înseamnă că nu pot apărea 
probleme la execuţie. Nu s-au avut în vedere cazurile în care nu se introduc valori în casetele de text. 
Astfel, se poate produce o eroare fatală, care opreşte aplicaţia, dacă într-un calcul se produce împărţirea 
la zero. în exemplul de faţă, dacă utilizatorul nu specifică valoarea ratei dobânzii, aplicaţia se opreşte 
printr-un mesaj de eroare. 

Se impune deci verificarea tuturor valorilor introduse de utilizator pentru calculul valorii viitoare 
(acestea să fie numere pozitive, mai mari decât 0) înainte de lansarea procedurii de calcul. în acest 
scop, se converteşte explicit valoarea din fiecare casetă de text într-un număr, iar dacă acesta este mai 
mic sau egal cu 0 se afişează o casetă de mesaj pentru avertizare şi apoi se muta focus-ul pe caseta de 
text în care s-a introdus valoarea eronată, în vederea corectării. 

Un mod uzual (şi simplu) de tratare a erorilor este prin intermediul unor funcţii definite de 
utilizator. 

In primul rând, se modifică procedura c*udCaleul Click (), prin inserarea următoarelor linii 
înainte de citirea datelor (după secvenţa de declarare a variabilelor): 
"Verificare erori If 
VErori () = 1 Then 


Exit Sub End If 

VErori () este o funcţie pentru depistarea valorilor eronate dintr-un form, care se va defini într- 
un modul distinct, şi nu în modulul form-ului. La apelarea funcţiei, se execută codul funcției şi se 
retumează o valoare. Dacă se returnează valoarea 1, se semnalează că form-ul conţine o eroare, aşa că 
se iese din procedura de calcul, prin comanda Exit Sub. Dacă nu există erori, funcţia VErori () 
va returna valoarea 0, iar procedura va continua. 

Am discutat aici despre două tipuri de proceduri: subrutine (cum sunt toate procedurile 
eveniment; încep cu Sub şi se termină cu End Sub) şi funcţii. O funcţie constă dintr-o secvenţă 
de cod care acceptă 0 sau mai multe argumente şi returnează o singură valoare. O subrutină este o 
procedură care acceptă 0 sau mai multe argumente, dar nu returnează o valoare. Se va continua 
această discuţie într-un capitol special destinat procedurilor şi funcţiilor. 

Codul-sursă al funcţiei nu face parte din modulul form, ci se adaugă un modul standard, prin 
comanda Project |Add Module, selectând apoi pictograma Module. Am ales această cale 
în ideea că aplicaţia ar putea fi completată cu mai multe form-uri şi flecare dintre acestea ar putea 
folosi aceeaşi funcţie pentru controlul erorilor. Visual Basic va denumi implicit modulul nou cu 
numele Modulel si îl salvează într-un fişier Modulel.bas (vezi figura 8.5). în fereastra Code 
a noului modul se introduce procedura. 


Project - pjCalculValV 
D 


pjCalculValV (pjCalculValV) — 
EjMSî Forms 
:...& frmCalculValViitoare (frmCalculValViitoare) 
S-MU Modules 


Modulel (Modulel) 


84 Figura 8.5. Adăugarea unui needa! Astdrul proiectului 


Public Function VErori() As Integer ' Cautarea 
posibilelor erori la preluarea datelor If 
Val (frfnCalculValViitoare.txtRata.Text) <= 0 Then 
MsgBox "Introduceti o valoare pozitiva pentru rata 
dobânzii!", vbExclamation, "Eroare" 
frmCalculValViitoare.txtRata.SetFocus VErori = 1 Exit Function 
End If 
If Val (frmCalculValViitoare.txtDur.Text) <= 0 Then 
MsgBox "Introduceti o valoare pozitiva pentru " 
& 
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" durata depunerilor!", vbExclamation, "Eroare" 

frmValViitoare.txtDur.SetFocus VErori = 1 Exit Function 
End If 
If Val (frmCalculValViitoare.txtSuma.Text) <= 0 Then 

MsgBox "Introduceti o valoare pozitiva pentru suma depusa!", 
vbExclamation, "Eroare" frmCalculValViitoare.txtSuma.SetFocus 
VErori = 1 Exit, Function Snd If 
' Daca nu s-a găsit nici o valoare eronata VErori = 
0 End Function 

O primă diferenţă fata de procedurile pe care le-am definit până acum apare la început, prin 
declarația Public! Function (căruia îi corespunde la final End Function), urmat de 
numele funcţiei definite — VErori () — şi de tipul valorii returnate de funcţie (As Integer). 
Această ultimă clauză este obligatorie, pentru a indica tipul valorii returnate. Tipul poate fi oricare, 
atâta timp cât procedura este definită corespunzător (puteam defini funcţia cu As Boolean, caz în 


care rezultatul era True sau False). 

în cadrul funcţiei, se verifică valoarea introdusă în fiecare casetă de text. De remarcat: 

>  specificatia nume-form. nume-obiect .proprietate, care include şi numele 
form-ului din care face parte caseta de text (absolut necesară, întrucât procedura nu face 
parte din modulul form-ului); 
afişarea mesajului de eroare într-o casetă de mesaj (vezi figura 8.6); 
utilizarea metodei Set Focus (în mod similar cu specificarea unei proprietăţi, prin nume- 
form. nume-obiect .metodă), pentru a trimite cursorul înapoi în caseta de text în 
care s-a depistat eroarea, astfel ca utilizatorul să poată efectua corectia necesară; 

> utilizarea instrucţiunii Exit Function, prin care se încheie procedura în cazul 


depistării unei erori şi se redă controlul procedurii din care s-a apelat funcţia; 
> daca nici una dintre cele trei structuri If nu se execută, înseamnă că nu există nici o eroare, 
astfel că VErori primeşte valoarea 0. Prin End Function se redă controlul procedurii 


din care s-a apelat funcția. 


9 Introduceti o valoare pozitiva pentru rata dobanzii! 
ID 


OK 


Figura 8.6. Afişarea mesajului de eroare 


1 Reamintim că declaraţia Public asigură „vizibilitatea” funcţiei VErori din orice modul de program. 
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Liste de controale (control arrays) 
Să presupunem că pe un form trebuie plasate 12 căsuțe în care trebuie să introducem profitul sau 
pierderea lunare pentru o firmă. Sunt posibile cel putin trei căi de a realiza aceste căsuțe: 
> desenarea şi denumirea fiecărei casete în parte (txtProfitlan. . . txtProf 
itDec) -de departe metoda cea mai consumatoare de timp; 
> desenarea şi dimensionarea primei casete (txtProfitlan), urmate de execuţia 
comenzilor Copy şi Paste (răspunzând ,,No” la întrebarea din figura 8.2); rămâne de 
redenumit fiecare casetă (txtProf itFeb. . . txtProf itDec); 
> desenarea şi dimensionarea primei casete (txtProfitlan), urmate de execuţia 
comenzilor Copy şi Paste (răspunzând ,,Yes” la întrebarea din figura 8.2); repetând de 
11 ori operaţia, vor rezulta 12 casete cu aspect identic și cu acelaşi nume. 
în acest din urmă caz, mai multe controale de acelaşi fel au fost reunite într-o listă de controale 
(control array). în mod similar cu o variabilă de tip listă, o listă de controale înseamnă mai multe 
controale de acelaşi tip, care au acelaşi nume, fiind identificate prin valoarea unui indice. Această 
valoare este dată de proprietatea Index care se încadrează în intervalul 0- n-l (unde n este numărul 
de controale definite). 
Printre avantajele acestor liste de controale se numără accesarea lor simplificată prin cod, întrucât 
toate împart aceleaşi proceduri-eveniment. Toate aceste proceduri ale controalelor dintr-o listă au un 
argument suplimentar care precizează indexul controlului pentru care se doreşte tratarea 


evenimentului, lată diferenţa între procedura Click a unui control individual numit cmdTotal: 
Private Sub cmdTctal Click () 


End Sub 
gi cea pentru o lista de controale cu acest nume: 
Private Sub cmdTotal Click (Index As Integer) 


End Sub 

în exemplul din figura 8.7 s-a utilizat o listă de butoane de comandă (crndNavigare) pentru 
a trece de la o înregistrare la alta. S-a folosit instrucţiunea Select Case pentru a afla ce buton a 
apăsat utilizatorul. Codul nu este complet: în loc de cele patru comentarii, el ar trebui să conţină 
instrucţiuni specifice bazelor de date, dar pe acestea le vom discuta într-un capitol ulterior. în caz că s- 
ar fi folosit patru butoane distincte (să spunem cmdPrimul, cmdPrecedentul, 
cmdUrmatorul, cmdUltimul), ar fffost nevoie de patru proceduri diferite. 
Atenţie! în cadrul procedurilor, un control care face parte dintr-o listă trebuie specificat 
împreună cu valoarea indicelui. Spre exemplu, pentru a schimba textul afişat de prima dintre 
etichetele cu numele 1lblMesaj trebuie scris: 

lblMesaj (0) .Caption = "S-a încheiat preluarea datelor" 


x] 


|emdiNâvigare(0) CornmândButton -=H 


(Name) =: 
Alpkauetins Gidagarizedised in code to identify al 
(Name) PhemdNavigagrs | 
> 


Senet pes EA yes 
HA arie: («Primul 


[ii Projectl - Foiml (Code) 


jcmdNauigare zj [cick 


Privatd Sub cmdNavigare_Click(Index As Inte jion |« &Primul 
Select Ase Index. "sunt. 4 butoane  ir|CausgsVăliiatioiițrue controale 
cmdiiavigare Case 0 ; Default False 

L eoroensi pt. deplasare la prima `| |. |(DisabiedPicture (None) zi 
Thregigtrareé Case a 


"comenzi 


Figura 8.7. Exemplu de utilizare a unei liste de controale 


* 4 

întrebări şi exerciţii 

1. Ce definesc valorile proprietății StartUpPosition pentru un form? 

2. Cu ce scop se definesc combinaţii de taste directe (hotkeys) pentru etichete? 

3. Ce este un array de controale? 

4. ince situaţii este utilă blocarea accesului la o casetă de text prin proprietatea Lock? 

5. Adevărat sau fals? O aplicaţie cu mai multe formuri se încheie ca şi una cu un singur form, prin 
instrucţiunea End. 

6. Adevărat sau fals? Următoarele instrucţiuni au aceeaşi semnificaţie: 
lblTitle = "Multimedia" 
lblTitle.Caption = "Multimedia" 

7. Care este diferenţa dintre o procedură funcție şi o procedură subrutină? 

8. Adevărat sau fals? O listă de controale înseamnă mai multe controale de acelaşi tip, care au 
aceeaşi valoare pentru proprietatea Name . 

9. Modificaţi aplicaţia prezentată mai sus, astfel ca preluarea datelor să se realizeze cu ajutorul 
casetelor de intrare. Introducerea datelor trebuie urmată de secvenţa de validare a acestora. 
(Sugestie: ati putea utiliza o buclă Do. . .While Loop pentru citirea datelor, astfel încât 
caseta de intrare să se poată afişa de mai multe ori, până când valoarea introdusă este corectă). 


Capitolul 9 MAI MULTE CONTROALE 


După ce am parcurs fundamentele realizării aplicaţiilor în Visual Basic, vom studia câteva 
controale care conferă acestora un plus de funcţionalitate fata de traditionalele casete de text şi 
etichete. Este vorba despre: casete cu listă, casete combinate, butoane de opțiune, casete de validare, 
bare de derulare şi timer-e. 


Casete cu listă (List Box) 


Casetele cu listă sunt frecvent utilizate în aplicaţii - ele permit selectarea unei valori dintr-o listă de 
valori posibile. 


ii 
Editor Editor Format J Generai J Docking | Environment j Advanced | 
: rCode Colors ~ 
Selection Text j Courier New 
5yntax Error ; 
Text Execution Size: 
Point Text 


3reakpoint Text 
Comment Text ZI 


[ P ane Background; Indicator: | | ABCXYZabcxyz 
Auto 3 ] Auto 3 | Auto 


idicator Bar 


OK Cancel Help 


Figura 9.1. Casete cu lista si casete combinate 


in figura 9.1 este ilustrat dialogul pentru specificarea optiunilor utilizatorului privind editorul 
folosit de Visual Basic pentru scrierea codului. Caseta cu lista este utilizată pentru a da posibilitatea 
utilizatorului să aleagă dintre mai multe valori posibile date, în loc să introducă valoarea respectivă de 
la tastatură. în plus, caseta cu listă reduce riscul introducerii de date eronate: ne asigură că utilizatorul a 
specificat o valoare, iar aceasta este corectă, din moment ce se află deja în listă. 

La proiectarea casetei cu listă trebuie să se aibă în vedere datele de afişat (vezi mai jos proprietatea 
List). Dacă nu este suficient de înaltă ori de lată, se afişează automat bare de derulare, pentru a permite 
vizualizarea tuturor datelor cuprinse în listă. 
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Tabelul 9.1. Câteva proprietăţi ale unei casete cu listă 


Proprietate Descriere 
BackColor Specifică culoarea utilizată pentru fondul casetei. 
Columns precizează numărul de coloane. Dacă valoarea rămâne 
O (implicit), lista se va derula vertical într-o 
singură coloană. Pentru valoarea 1, 2 sau mai mult, 
numărul de coloane va fi 2, 3 ş.a.m.d., afişându-se 
ForeColor Specifică culoarea textului. 
IntegralHeight Specifică dacă in caseta cu listă este posibilă 
List Permite introducerea manuală, în faza de proiectare, 
Listindex Permite aflarea numărului de ordine a unui element 
selectat sau pozitionarea (prin cod) pe un element 
MultiSelect Indica modalităţile de selectare posibile. Valoarea 
O-None (implicit) arată că utilizatorul poate 
selecta un singur element din listă (cu mouse-ul sau 
bara de spaţiu). Dacă se alege 1-Simple, 
utilizatorul poate selecta mai multe elemente (prin 
Sorted precizează dacă elementele din listă vor apărea 
sortate. Valoarea False (implicit) determină 
afişarea valorilor in ordinea in care au fost 
Style Indică modul de afişare: format obişnuit de listă 
sau format îmbunătăţit prin includerea de casete d 
-Ini x] 
Lun 
a Teia ee 
A Mieteuri o Marii [j Vineri 
în] Joi D |Q. Miercuri v gCTygfagMHMMWI 
Vineri o U J 2) 
Sambata G 
Duminica 


Figura 9.2. Exemple de stiluri de afișare 


Vom introduce în discuţie un concept nou, acela de metodă. Am aflat în Capitolul 2 că pentru form- 
uri şi controale există proprietăți şi evenimente. Proprietăţile unui control reprezintă atribute ale sale, 
iar evenimentele sunt interacțiuni ale controlului cu utilizatorul (Click, KeyPress etc.) ori cu sistemul 
însuşi (Load, Paint etc.). Dar form-urile şi controalele dispun şi de metode. O metodă poate fi 
considerată o procedură (cu sau fară parametri) prin a cărei invocare se cere controlului să execute 
ceva. Acest „ceva” înseamnă cel mai adesea modificarea valorii proprietăţilor controlului de care 
aparţine. Ca orice procedură, o metodă are un nume şi opţional un număr de argumente. Invocarea are 
loc în maniera <nume-control>. <nume-metodă>. 
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Tabelul 9.2. Principalele metode ale unei casete cu listă 


Metodă Descriere 
Addltem Adaugă un element în listă. 
Clear Şterge toat lementele din listă. 
List O matrice sir de caractere, care cuprinde toate 
ListCount Numărul total de elemente din listă. 
Removeltem Şterge un singur element din listă. 


Observaţie: de regulă, în interfaţa unei aplicaţii, listele sunt însoţite de un buton de 

comandă. După ce utilizatorul selectează un element din listă, prin clic pe buton se poate transmite 
aplicaţiei valoarea selectată de utilizator (dacă s-a scris codul corespunzător). Transmiterea valorii se 
poate face şi printr-o altă variantă, mai simplă: dublu clic pe valoarea respectivă din listă (dar trebuie 
tratat evenimentul DblClick al listei). Procedura de selecţie nu se va scrie de două ori. Presupunem 
că ea a fost definită mai întâi pentru butonul de comandă (să-i zicem cmdselectie). In procedura 
DblClick a casetei cu listă se va invoca direct procedura deja definită, prin: 
cmdselectie Click în tabelul 9.2 sunt descrise metodele specifice casetelor cu listă. O casetă 
cu listă apelează frecvent la metode, pentru operaţiuni precum iniţializare, adăugarea unor elemente 
sau ştergerea lor dintr-o listă. Una dintre cele mai importante metode este Addltem, care se 
comportă ca instrucţiunea de atribuire pentru variabile. Spre exemplu, pentru a adăuga limba engleză 
într-o casetă cu listă numită IstlbStraina, se va scrie: 

Istlbstraina.Addltem "Engleza" 

Observaţie: prefixul utilizat pentru acest control este Ist. 

Valorile care apar într-o listă de pe un form se pot defini în procedura de încărcare în memorie a 
form-ului, denumită Form Load (). Dacă dorim o listă cu limbile străine dintre care trebuie să 
aleagă utilizatorul, vom scrie în procedura respectivă următoarea secvenţă: 

IstLbStraina.Addltem " 

IstLbStraina.Addltem "Franceza" 

IstLbStraina.Addltem "Germana" 

IstLbStraina.Addltem "Spaniola" 

IstLbStraina.Addltem "Italiana" 

Secventa de initializare nu depinde de particularitatile listei (dacă aceasta e pe una sau mai multe 
coloane, spre exemplu). Fiecărui element dintr-o listă îi este asociat un index, astfel: primul are 
indexul 0, al doilea 1 ş.a.m.d. Lista noastră are indecsi de la 0 la 4. Indexul este deci utilizat pentru a 
identifica fără ambiguitate un element al listei. Astfel, atunci când se doreşte eliminarea unui element, 
prin metoda Removeltem, se scrie astfel: IstLbStraina.Removeltem (2) 

Rezultatul este eliminarea din listă a celei de-a treia valori, adică „Germana”. După eliminarea 
acesteia, valorile indecşilor se vor actualiza corespunzător: 3 devine 2, iar 4 devine 3. 

Ştergerea tuturor elementelor dintr-o listă se face prin metoda Clear: 

IstlbStraina.Clear Prin metoda List (index) se accesează valori dintr-o casetă 
cu listă, cunoscând indexul corespunzător acestora. Aceste valori sunt de tip String sau Variant 
(pentru a obţine o valoare numerică se utilizează funcţia Val ()). Astfel, pentru a extrage prima 
valoare din caseta IstLbStraina se va scrie: 

strLS = IstLbStraina.List (0) 

Prin proprietatea ListCount se determină numărul de elemente dintr-o listă sub forma unui 
număr de tip Integer. Spre exemplu, după execuţia instrucţiunii de mai jos, variabila intNr va 
avea valoarea 4. 


Engleza" 


intNr = IstLbStraina.ListCount Reprezentând numărul de elemente dintr-o listă, 
ListCount se poate utiliza în structura repetitivă For. . . Next, astfel că o procedură se 
poate relua pentru fiecare element al listei. Atenţie însă la valorile de start şi stop utilizate, întrucât 
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prima valoare a indexului unei liste este 0. în acest caz, valoarea finală va fi ListCount-1. 

Se utilizează proprietatea selected pentru a indica dacă un element al listei a fost selectat de 
utilizator. Selected returnează True atunci când unul sau mai multe elemente din listă au fost 
selectate. Atenţie, această proprietate necesită precizarea indexului elementului a cărui selecţie se vrea 
a fi testată. 

blnEsteSelectat= IstLbStraina.Selected (1) 


Casete combinate (Combo Box) 


Reprezinta o imbinare dintre casetele de text si casetele cu lista: permit atat selectarea dintr-o lista, cat 
şi editarea unei valori în caseta de text. Există trei tipuri de casete combinate (vezi şi figura 9.3): 
> casetă combinată cu listă ascunsă (Dropdown Combo), care afişează initial o singură linie, 
pe care utilizatorul poate scrie o valoare nouă care opţional se adaugă în listă. Pentru a 
selecta un element din cuprinsul listei (care este invizibilă), utilizatorul trebuie să execute 
clic pe butonul V, din dreapta liniei initial afişate; 
> casetă combinată simplă („Simple Combo), ce afişează o casetă de text, în care se poate 
scrie o valoare noua, ce se va adăuga în listă, iar sub ea o casetă cu listă (de felul celor 
prezentate în figura 9.2), din care se pot selecta elementele definite; 


= 19] x! 


Casetă cu listă ascunsă 
(în care utilizatorul nu 
poate adăuga valori noi) 


Casetă combinată cu Casetă combinată simplă 
listă ascunsă (în care (în care utilizatorul poate 
utilizatorul poate adăuga adăuga valori noi) 

valori noi) 


Figura 9.3. Tipuri de casete combinate 


> casetă cu listă ascunsă (Dropdown List), similară cu o casetă cu lista, dar care apare initial 
ca o singură linie, fiind deschisă prin clic pe butonul V. Nu se poate scrie nimic de la 
tastatură în porţiunea de text a acestei liste. 

Se observă asemănarea dintre primul şi al treilea tip de casete combinate, în care listele afişate 
initial sunt închise şi care se deschid prin butonul aflat în dreapta casetei. Deosebirea este că în prima 
casetă se poate adăuga o valoare nouă în listă, iar în cealaltă nu. Tipul de casetă combinată se alege în 
funcţie de specificul aplicaţiei (spaţiul disponibil în form, dacă utilizatorul poate sau nu să adauge 
date). 
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Tabelul 9.3. Câteva proprietăţi ale casetelor combinate 


Proprietate Descriere 
BackColor Specifică culoarea utilizată pentru fondul casetei. 
ForeColor Specifică culoarea textului. 
IntegralHeight Specifică dacă în caseta cu listă este posibilă 
List Permite introducerea manuală, în faza de proiectare, 
Sorted Precizează dacă elementele din listă vor apărea 
sortate. Valoarea False (implicit) determină 


afişarea valorilor în ordinea în care au fost 


Style Indica tipul de casetă combinată dorit: 0O-DropDown 
Combo indică o casetă combinată cu listă ascunsă; 1- 
Simple Combo creează o casetă combinată simplă; 2- 
DropDown List este opţiunea pentru casetă cu listă 
In tabelul 9.3 sunt redate principalele proprietăţi ale casetelor combinate - trebuie 


remarcat că multe dintre ele se regăsesc şi la casetele cu listă (tabelul 9.1). 
Atenţie! Am menţionat că într-o casetă combinată utilizatorul poate adăuga elemente noi, dar 
asta nu înseamnă că adăugarea se face automat. Trebuie definită o secvenţă de cod în procedura- 
eveniment Change sau LostFocus a casetei combinate, care să utilizeze metoda Addltem 
astfel: 
cbhoLocalit. Addltem cboLocalit. Text 'adaugă valoarea nouă O 
altă variantă de lucru este definirea unui buton de comandă care să conţină secvenţa de cod pentru 
adăugarea noii valori - în acest caz adăugarea se va face la cererea expresă a utilizatorului, şi nu 
automat, ca în varianta precedentă. 


Butoane de opţiune (Option Button) 


In figura 9.4 am exemplificat modul de utilizare a butoanelor de opţiune în cazul comenzii Prinţ din 
aplicaţia Microsoft Word. Prin clic pe una dintre opţiuni aceasta este selectată/ deselectată (în cadrul 
butonului se afişează un cerculet de culoare neagră atunci când opţiunea este selectată). Pentru 
selectare de la tastatură se utilizează combinaţia directă (Alt+litera subliniată) sau mutarea cu tasta 
TAB si apăsarea barei de spaţiu. La selectarea unei opţiuni, cea care era anterior selectată se 
deselectează automat (întrucât doar o opţiune poate fi selectată la un moment dat). Analogia cu 
butoanele de schimbare a lungimii de undă Ia un aparat de radio a dus la adoptarea denumirii de 
butoane radio. 

întrucât acest control defineşte mai multe opţiuni pentru o actiune/operatiune, se recomandă la 
creare utilizarea unui array, astfel ca toate proprietăţile definite pentru primul buton de opţiune să fie 
preluate şi de celelalte. Dacă nu s-a lucrat cu un array de controale, pentru a stabili aceeaşi valoare a 
unei proprietăţi pentru mai multe butoane concomitent, acestea se vor selecta în prealabil, după care 
se va seta proprietatea. 

Multe dintre proprietăţile butoanelor de opţiune se cunosc de la controalele pe care le-am studiat 
până acum. Cea mai importantă proprietate este Value, care se modifică la momentul execuţiei, 
indicând dacă acel buton este selectat sau nu. 
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Figura 9.4. Exemple de butoane de opţiune şi casete de validare 


Controlul Cadru (Frame) 


In figura 9.5 sunt din nou exemplificate câteva butoane de opţiune. Totuşi, ceva pare că nu este în 
ordine, pentru că sunt selectate simultan două opţiuni. Acest lucru este posibil prin gruparea mai 
multor butoane într-un cadru, care le delimitează de celelalte butoane. După cum se observă, se 
utilizează controlul cadru (Frame) , care încadrează mai multe controale într-o zonă rectangulară 
însoţită optional de un titlu. 


HI 
Editor ) Editor Format | General J Docking Environment ] Advanced 
Wheri Visual Basic starts: Show TemplatesFRr ; o> Rea: 
<*m jProwipt for ~preae53~ Forms P MDI 
Create default project Forms P Modules 
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| | 
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să Dont Save Changes 


Templates Directory: 
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siiiii OK Cancel Help 


Figura 9.5. Dialogul Options al mediului Visual Basic 
Pe un form se pot delimita mai multe cadre, form-ul însuşi fiind considerat un cadru implicit 
pentru toate controalele plasate pe el. 
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Pentru cadru există câteva proprietăţi şi evenimente definite, dar este utilizat cu precădere pentru a 
delimita unele controale de altele. Dacă mai multe controale sunt delimitate de un cadru, dacă acesta este 
mutat, toate controalele cuprinse se vor muta împreună cu el. 

Atenţie! întotdeauna trebuie definit întâi cadrul şi apoi controalele din cuprinsul acestuia. Un 

control plasat pe form nu poate fi „tras” apoi în cadru - mai bine zis, dacă este tras astfel, el nu va face 

parte din cadru, ci se va considera că este aşezat peste cadru. în figura 9.6 se prezintă un cadru cu 
patru butoane de opţiune. Butonul de opţiune Option5 a fost definit în form şi tras apoi în cadru. 

La mutarea cadrului se observă că Option5 nu este considerat ca făcând parte din el. 


Figura 9.7 ilustrează o aplicaţie care conţine trei cadre prin care se defineşte modul de afişare a 


textului dintr-o | Se) Piel etichetă. Utilizatorul 
poate alege doar o |... a : pu] opțiune din fiecare 
cadru. 


Frame] — 
C Optiont 
C Option2 
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Figura 9.6. Exemple de butoane de opţiune incluse sau nu ĉn cadru 
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Figura 9.7. Aplicaţie care utilizează butoane de opţiune grupate in 
cadre 
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După schimbarea unei opţiuni se declanşează procedura-eveniment clic care modifică proprietăţile 
etichetei. 

Este prezentat în continuare codul din modulul form-ului. Eticheta este initializata în procedura 
de încărcare a form-ului Form Load (), celelalte proceduri răspunzând la acţiunile utilizatorului. 
Private Sub Form Load() 

‘initializare eticheta 

lblTitlu.Caption = 'Exemplu de utilizare a cadrelor" 
lblTitlu.ForeColor = vbBlue lblTitlu.BackColor = vbCyan 
End Sub 


Private Sub OptItalDa_Click() lbl1Titlu.Fontltalic = True End Sub 


Private Sub OptItalNu_Click() lb1Titlu.Fontltalic = False End Sub 


Private Sub cptSublDa Click) 
lb1Titlu.FontUnderline = True 


End Sub 

Private Sub optSubINu Click() 
lblTitlu.FontUnderline = Fals 

End Sub 


Private Sub optAlbastru Click() lb1Titlu.ForeColor = vbBlue End Sub 


Private Sub optRosu_Click() 
lblTitlu.ForeColor = vbRed 
End Sub 


Private Sub optVerde Click () 
lblTitlu.ForeColor = vbGreen 
End Sub 


Private Sub chkBold Click() 
If chkBold.Value = 1 Then 
lb1Titlu.FontBold = True 


bi 


Lise 


lb1Titlu.FontBold = False 
End If End Sub 


Private Sub cmdGata Click() 
Unload Me 7 
End 
in exemplul de mai sus, pentru a specifica culoarea textului si a fundalului, s-au utilizat literali 
predefiniti Visual Basic. în tabelul 9.4 sunt prezentaţi aceşti literali şi culorile cărora le corespund. 


Tabelul 9.1. Literali predefiniti pentru culori 


Literal Culoare 
vbBlack negru 
vbRed roşu 
vbGreen verde 
vbYellow galben 
vbBlue albastru 
vbMagenta purpuriu 
vbWhite alb 
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Casete de validare (Check Box) 


în figura 9.4 apare şi o casetă de validare. Funcționarea acesteia este asemănătoare cu aceea a unui buton 
de opţiune, principala deosebire constînd în faptul că se pot selecta simultan mai multe opţiuni, chiar 
dacă sunt plasate în acelaşi cadru. 

O casetă de validare se selectează/deselectează în mod similar cu butoanele de opţiune. Pe o casetă 
selectată va apărea semnul v . 

Proprietăţile sunt în general aceleaşi ca la butoanele de opţiune. La proprietatea Value apare în plus 
valoarea 2, care indică faptul că opţiunea nu este disponibilă“ la momentul respectiv (vezi figura 9.8). 


WV Selectat 


») Neselectat us 
2: ¥ Indisponibil =—~ sige 


Figura 9.8. Exemple de casete de validare 


Bare de derulare (Scrollbar) 


Acestea permit utilizatorului să controleze schimbarea valorilor unor variabile, de o manieră vizuală. în 
loc să tasteze o anumită valoare într-o casetă, utilizatorul va muta poziţia butonului de pe bara de 
derulare, cu ajutorul mouse-ului, indicând o valoare dintr-un interval. în Toolbox există atât bară de 


derulare orizontală, cât şi bară de derulare verticală. 
Tabelul 9.5. Proprietăţile principale ale unei bare de derulare 
Proprietate Descriere 


LargeChange Specifică distanţa cu care urcă/coboară butonul pe bara de derulare, dacă se face 
clic deasupra lui/sub el* (implicit are valoarea 1). 


Max Indică numărul maxim de unităţi reprezentate ca valoare maximă pe bara de 
derulare (implicit este 32767). 
Min Indică numărul minim de unităţi reprezentate ca valoare minimă pe bara de 


derulare (implicit este 1). 
SmallChange | Specifică distanţa cu care urcă/coboară butonul pe bara de derulare, dacă se face 
clic pe butoanele cu săgeată de la capetele barei (implicit are valoarea 1). 

Value Reprezintă valoarea curentă dată prin poziţia butonului pe bara de derulare. 
*la bara de derulare orizontală, deplasarea se face la stânga si la dreapta 


La plasarea pe form a barei de derulare trebuie să fie cunoscut intervalul de valori pe care se face 
deplasarea (minim 1, maxim 32767). Trebuie precizate valoarea minimă care se va reprezenta pe bară, ca 
şi valoarea maximă. Schimbarea valorii se poate face cu un pas mic (SmallChange) , prin apăsarea 
sagetilor de la capetele barei sau cu un pas mare (LargeChange) , prin apăsarea pe intervalele dintre 
buton şi capete. Trebuie precizate valori pentru cei doi paşi. Valoarea reprezentată la un moment dat este 
indicată de proprietatea Value - aceasta se modifică deci la execuţie. Bineînţeles, aceste proprietăţi pot 
fi modificate şi prin cod. 


6 Această valoare nu se poate atribui decât prin cod. 
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Lox) 


Figura 9.9. Exemplu de bara de derulare 


Spre exemplu, dacă i se va cere utilizatorului să aleagă un număr de la 1 la 100, se va defini o bară de 
derulare în care se setează valorile proprietăţilor după cum urmează: Min: 
1, Max: 100, SmallChange :1 şi LargeChange: 10. în figura 9.9 apare bara de derulare definită. 
Valoarea atinsă la execuţie este 31 şi este afişată într-o etichetă prin intermediul procedurii: 
Private Sub vsbNumar Change () 

lblCat.Caption = vsbNumar .Value 
End Sub 

Codul este scris în procedură-eveniment Change a barei, ceea ce înseamnă că orice modificare a 


valorii indicate determină schimbarea textului afişat de etichetă. 
Controlul Timer 


Spre deosebire de celelalte controale pe care le-am studiat, Timer este un control care lucrează în 
fundalul aplicaţiei, tară a fi vizibil pentru utilizator (nu este reprezentat pe form la execuţie). Controlul 
Timer este utilizat pentru a declanşa anumite proceduri, în funcţie de restricţiile de timp definite. Visual 
Basic foloseşte ceasul intern al sistemului pentru a controla evenimentele legate de timp dintr-o aplicaţie. 

Acest control are doar şapte proprietăţi, dintre care cea mai importantă este Interval. Aceasta 
indică o valoare în intervalul 1-65535, exprimată în milisecunde (a mia parte dintr-o secundă). 

Singurul eveniment asociat acestui control este Timer, care se declanşează atunci când a trecut 
intervalul de timp stabilit. Spre exemplu, dacă se defineşte un timer tmrSecundar, cu proprietatea 
Interval având valoarea 1000, Visual Basic va executa procedura tmrSecundar Timer () 
aproximativ la fiecare secundă. „Aproximativ” arată că acest control nu este un cronometru perfect, fiind 
legat la ceasul intern al sistemului (sunt posibile erori de ordinul milisecundelor). Dacă proprietatea 
Interval are valoarea 
0, evenimentul Timer nu se declanşează niciodată. 
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00:00:00 


o 


Figura 9.10. Controlul Timer in faza de proiectare a form-ului 


în figura 9.10 este prezentat un form in curs de proiectare, conţinând o etichetă şi un timer. La 
execuţie (vezi figura 9.11), eticheta va afişa ora exactă (cât de exactă, depinde de ora sistemului). Asta 
înseamnă că de câte ori se declanşează evenimentul Timer se modifică ora afişată. Pentru modificarea 
din secundă în secundă, proprietatea Interval se setează la 1000. Pentru afişarea orei curente se 
foloseşte funcţia Time, care redă ora sistemului. Procedura eveniment Timer se va scrie astfel: 


Private Sub Timerl Timer () 
IblOraExacta = Time 
End Sub 
întreruperea „cronometrării” se face dând valoarea False proprietăţii Enabled a controlului 
Timer. 
19:12:07 
Figura 9.11. Execuţia aplicaţiei care conţine controlul Timer 
Observaţie: acest control nu este un ceas, ci doar un mod de a declanşa un 
eveniment la intervale prestabilite. în exemplul nostru s-a simulat un ceas preluând ora 


sistemului, dar la acesta a contribuit funcţia Time. 


întrebări şi exerciţii 

1. Adevărat sau fals? Textele afişate de butoanele de opţiune apar înaintea butonului propriu- zis. 

2. Prin care proprietate se setează ca o casetă de validare să fie la un moment dat indisponibila? Dati 
un exemplu de utilizare. 

3. Ce semnifică valoarea True pentru proprietatea Value a 
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unui buton de opţiune? 
4. Adevarat sau fals? in execuţia unei aplicaţii este posibil ca la 
început nici un buton de 
opţiune sau casetă de validare să nu fie selectate. 
5. Ce tip de control poate fi plasat într-un cadru? 
6. Precizati diferenţa dintre proprietăţile Small Change şi Large Change ale unei bare de 
derulare. 
7. Care proprietate îşi modifică valoarea când utilizatorul execută clic pe una dintre săgețile de pe o 
bară de derulare? 
8. Adevărat sau fals? Controlul Timer poate fi asemănat cu un ceas deşteptător, care este programat 
să sune la o oră prestabilită. 
9. Când se face de regula initializarea unei casete cu listă? 
10. Care metodă adaugă noi elemente într-o casetă cu listă? 
11. Care metodă determină numărul de elemente dintr-o casetă cu listă? 
12. Adevărat sau fals? Visual Basic poate sorta automat elementele unei liste după actualizarea 
acesteia, dacă o anume proprietate a fost setată cu True. 
13. Câte tipuri de casete combinate se pot defini? 
14. Cum se specifică tipul unei casete combinate nou definite? 
15. Proiectati o aplicaţie pentru a defini o lista în care utilizatorul să poată adăuga valori noi. (Sugestie: 
folosiţi o casetă combinată.) Lista va conţine autorii şi titlurile cărților consultate pe un anume 
domeniu. Pentru adăugarea de noi titluri se va utiliza un buton de comandă. Lista se va menţine în 
permanenţă sortată alfabetic. 
16. Proiectati o aplicaţie care conţine 4 butoane de comandă, definite ca un array cu numele 
cmdSchimbare. Pe butoane se va afişa: Schimbare aspect font, Schimbare culoare fundal, Dublare 
înălţime, Reset. Când utilizatorul execută clic pe unul dintre primele trei butoane, 
se va modifica proprietatea indicată. (Sugestie: folosiţi instrucţiunea Select Case.) Butonul al patrulea 
va readuce proprietățile modificate la valorile iniţiale (sugestie: folosiţi variabile globale pentru a le 
memora). 

17. Modificaţi codul aplicaţiei din figura 10.7 astfel încât să se reducă numărul procedurilor- eveniment 
(folosiţi liste de butoane pentru fiecare cadru şi Select Case pentru a codifica operaţiunile de 
realizat). 

18. Modificaţi aplicaţia de la punctul 17 astfel: ştergeţi cadrele Italice şi Subliniere şi înlocuiţi butoanele 
de opţiune cu două casete de validare care să activeze sau să dezactiveze aceste opţiuni. 

19. Proiectati o bară de derulare pentru ca utilizatorul să selecteze mărimea fontului unui text dintr-o 
etichetă de pe form (pentru modificarea mărimii fontului etichetei folosiţi proprietatea FontSize). 

20. Modificaţi aplicaţia de la punctul 19: ştergeţi bara de derulare şi adăugaţi un Timer. La fiecare 5 
secunde adăugaţi 5 puncte la mărimea fontului. Când mărimea fontului a ajuns la 70 de puncte, 
readuceti-o la 8 puncte şi reluati procedura de mărire. 


Capitolul 10 
CASETE DE DIALOG 


Toate aplicaţiile Windows prezintă ferestre standard pentru operaţii precum deschiderea şi 
închiderea documentelor ori precizarea opţiunilor de tipărire. Visual Basic permite includerea în 
aplicaţiile realizate a unor astfel de casete de dialog, care vor da aplicaţiei un aspect profesional 
remarcabil. 

Casetele de dialog constituie unul dintre cele mai puternice controale disponibile, datorită 
polivalentelor lor. într-o casefa de dialog sunt plasate alte controale utilizate în realizarea unei anume 
operaţiuni, astfel că o casetă de dialog poate fi comparată - din punct de vedere al functionalitati - cu 


un form. 
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Figura 10.1. Casetă de dialog din Microsoft Word 
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în figura 10.1 este prezentată caseta de dialog File Open, întâlnită în majoritatea aplicațiilor 
Windows. Ea cuprinde mai multe etichete, casete de text, butoane, casete cu liste etc., prin care 
utilizatorul indică fişierul pe care doreşte să-l deschidă. Puteți crea o casetă de dialog de tipul File 
Open cu ajutorul controlului corespunzător din Visual Basic. 


De ce casete de dialog? 


Nu este obligatoriu să lucrăm cu casete de dialog. Cum într-o aplicaţie se pot adăuga oricâte form-uri, 


în locul casetei de dialog File Open, se pot plasa pe un form toate controalele necesare pentru a 


realiza operaţiunea de deschidere a unui fişier. în acest caz însă proiectarea va consuma mai mult 


timp, iar utilizatorul va trebui să se obişnuiască cu o interfaţă nouă (în afară de cazul în care vom 
imita exact ferestrele din alte aplicaţii Windows). Folosind caseta de dialog, proiectarea va fi mai 


simplă şi mai rapidă, iar utilizatorul va întâlni o interfaţă familiară. 


Observaţie: a nu se înţelege că simpla plasare pe form a casetei de dialog File Open va realiza 
deschiderea unui fişier specificat. Caseta de dialog este doar un element de 


in02faţă, prin care utilizatorul indică opţiunile wasaal Basieiderea fişierului se face prin codul inclus în 
procedurile-eveniment, care preiau valorile definite de utilizator şi realizează operaţiunea. Deci rolul 
casetei de dialog este de a asigura interfața cu utilizatorul şi de a returna aplicaţiei opţiunile şi valorile 
introduse de acesta, în figura 10.2 este prezentată o altă casetă de dialog frecvent utilizată: Font. în 
aplicaţiile care lucrează cu texte, aceasta permite utilizatorului să specifice tipul şi atributele fontului 
dorit. Practic, nu este posibil să cunoaştem dinainte fonturile de care o să dispună aplicaţia; prin 
caseta de dialog Font utilizatorul poate selecta unul dintre fonturile de care dispune sistemul. 
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Figura 10.2. Caseta de dialog Font 


Alte casete de dialog care se pot defini din Visual Basic sunt: File Save (pentru salvarea intr-un 
fişier), Color (pentru selectarea unei culori în aplicaţiile de desenare), Prinţ (pentru tipărirea la 
imprimantă) şi Flelp (care afişează informaţiile dintr-un fişier help specificat, care va fi legat de 
aplicaţie). 


Definirea unei casete de dialog (Common Dialog Box) 


Spre deosebire de celelalte controale, caseta de dialog nu apare în Toolbox la lansarea Visual Basic, 

nefiind un control intrinsec. Pentru adăugarea acestui control se execută comanda: Project | 

Components. . din care se va selecta Microsoft Common Dialog Box Control (vezi figura 10.3). 
Observaţie: se utilizează comanda Project | Components pentru a adăuga noi componente. 
Puteţi căuta pe site-ul Microsoft controale ActiveX adiţionale pe care să le adăugaţi în Toolbox. 
Un control ActiveX (salvat sub forma unui fişier de tip .OCX) lucrează similar cu celelalte 
controale din Toolbox, fiind definit prin proprietăţi şi acţionând prin metode specifice. 


General | 


x 


si 


A fibi 


rj i 


F @f 


JUJ +i 


Figura 
Aspectul 
controlului de tip casetă 


Figura 10.3. 
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Proprietățile casetelor 
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componente 
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Adăugarea controlului Common Dialog Box in Toolbox 
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La adăugarea pe form a casetei de dialog, Visual Basic oferă un set de proprietăţi suplimentare, 
grupate în opţiunea Custom din fereastra Properties. Prin clic pe butonul asociat acestei opţiuni se 
deschide o fereastră nouă de proprietăţi (vezi figura 10.5). 
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In noua fereastră sunt incluse mai multe cadre de pagină, pentru fiecare tip de casetă de dialog ce 
poate fi definit, astfel: Open/Save As, Color, Font, Prinţ şi Help, în acest fel se stabilesc 
proprietăţile cele mai importante - se recomandă să se definească toate proprietăţile ce pot fi setate la 
proiectare (celelalte vor fi definite prin cod, la execuţie). Spre exemplu, trebuie definită o valoare 
implicită pentru font şi mărimea acestuia, un tip implicit de fişier la salvare sau deschidere etc. 


open Pages erty Pages 
VISU oH LA g 
Open/Save As J Color ] Font j Punt j Help j Dialoglitle: [~~ 


" Flags: [o~~ 


FjleName: | DefayltExt: 


InitDir: [ MaxFileSize: 260 
Filter: F 


Filterindex. O 


P CancelError 


Cancel Help 


OK 


Figura 10.5. Fereastra Properties pentru definirea casetei de dialog 


Metodele casetelor de dialog 


Pentru ca o anume casetă de dialog să se afişeze la momentul execuţiei, trebuie invocată una dintre 


următoarele metode: 


V V VV MV 


ShowColor 
ShowFont 
ShowHelp 
ShowOpen 
ShowPrinter 
ShowSave 


JE 


Astfel, dacă s-a definit o casetă de dialog cu numele cdbLucru şi se doreşte afişarea dialogului 


pentru salvarea fişierelor, se va scrie: cdbLucru.ShowSave Principalele instrucţiuni pentru 


setarea casetelor de dialog disponibile in Visual Basic, considerând o casetă de dialog cdbDialog 
sunt prezentate în tabelul 10.1. 


Tabelul 10.1. Definirea tipurilor de casete CommonDiaiog 


Tip Valori ale proprietăţilor 
Open cdbDialog.DialogTitle = "Deschide fişier" 
"afiseaza doar fişierele text cdbDialog.Filter = "*.txt" 
cdbDialog.FileName = "*.txt" 'numele de fişier implicit 
cdbDialog.ShowOpen 'afiseaza caseta de dialog 
Save cdbDialog.DialogTitle = "Salvare fişier" 'afiseaza toate 
fisierele cdbDialog.Filter = *" 
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Tip Valori ale proprietăţilor 


cdbDialog.FileName = "test.txt" 'numele implicit 
cdbDialog.ShowSave 'afiseaza caseta de dialog 
Font cdbDialog.DialogTitle = "Stabilire font" cdbDialog.FontName = 


"Arial" cdbDialog.Type = cdlCFBoth” cdbDialog.ShowFont 


Color cdbDialog.DialogTitle = "Alege o culoare" cdbDialog.ShowColor 


Print cdbDialog.DialogTitle = "Selectare imprimanta" 
cdbDialog.ShowPrinter 


Observati i: 

> casetelor cu listă, butoanelor şi altor controale dintr-o casetă de tip Common Dialog le 
corespund proprietăţi ale controlului Common Dialog (de exemplu, FontName pentru 
lista cu fonturi, FileName pentru caseta de text cu numele fişierului etc.); 

> la caseta de dialog Font este obligatoriu de definit proprietatea Type, prin care Visual 
Basic specifică tipurile de fonturi care vor fi afişate în listă (cd1CFBoth arată că se 
afişează atât fonturile TrueType, cât şi celelalte fonturi instalate pe sistem). 


întrebări şi exerciţii 
|. Câte tipuri de casete de dialog se pot defini prin controlul 
Common Dialog Box? 
2. Adevărat sau fals? Se poate adăuga in Toolbox un control ActiveX. 
3. Adevărat sau fals? Visual Basic include în lista de componente adiţionale următoarele 5 
controale care se pot adăuga în Toolbox: File Open, File Save, Colors, Font şi 
Help. 
4. Care proprietate limitează fişierele care se afişează într-o casetă de dialog la cele care au o 
anume extensie? 
5. Care metode permit afişarea tuturor celor 6 casete de dialog? 
6. Din ce cauză nu se afişează caseta de dialog Font după următoarea secvenţă? 
cbdDialog.DialogTitle = "Font" 
cbdDialog.ShowFont 
7. Cum se poate sti numele fişierului selectat de utilizator într-un dialog File Save, dupa 
închiderea casetei de dialog? m 
8. Adevărat sau fals? Caseta de dialog Color limitează alegerea utilizatorului la un număr mic 
de culori de bază. 
9. De ce nu începe tipărirea imediat ce utilizatorul-a selectat imprimanta şi a închis caseta de 
dialog Printer? 
10. Realizati o aplicaţie în care, la apăsarea unui buton de comandă, se deschide caseta de dialog 
Color, care va permite utilizatorului să aleagă o anume culoare. După ce utilizatorul închide 
caseta de dialog, fondul butonului de comandă (proprietatea BackColor) să aibă culoarea 
selectată de utilizator. 
11. Adăugaţi în aplicaţia de la punctul 10 un alt buton de comandă, la apăsarea căruia să apară 
caseta de dialog File Open, în care să se afişeze, în mod implicit, toate fişierele cu extensia . 
bas de pe discul D:. 


Capitolul 11 PROGRAMAREA MODULARA 
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ÎN VISUAL BASIC 


Programarea structurată, „responsabilă” cu introducerea structurilor de control în programe, 
combinată cu programarea modulară (principiul „divide et impera”) contribuie la creşterea eficienţei şi 
productivităţii în proiectarea de aplicaţii. Prin divizarea aplicaţiei în mai multe proceduri se reduce 
efortul, o dată cu numărul de erori în scrierea programelor. De asemenea, este simplificată întreţinerea 
aplicaţiei. 

Chiar dacă nu (mai) ştiţi nimic despre metoda programării structurate, modul de elaborare a 
aplicaţiilor în Visual Basic v-a fost ghid. Procedurile-eveniment de dimensiuni mici, scrise pentru 
realizarea diverselor sarcini, în locul programelor vaste, monolitice, concretizează programarea 
structurată. Atunci când o procedură-eveniment este foarte complexă, ea este descompusă în proceduri 
mai mici, apelate la nevoie. 

Spre exemplu, secvenţa dintr-o procedură pentru calculul salariilor de mai jos apelează (prin 
instrucţiunea Call) trei proceduri, care execută sarcini clare. 

Caii Initializare() 


If txtCalculsal = "Regie" Then Call CalculSalRegie () 
Else 
Call CalculSalAcord() 
Endlf 


Se urmăreşte împărţirea unei sarcini în subsarcini şi a acestora în alte subsarcini, până la ultimul 
nivel de detaliere posibil, în condiţiile în care o procedură apelată poate, la rândul său, să apeleze o altă 
procedură. Codul devine astfel foarte bine structurat, simplu şi uşor de urmărit, iar corectarea erorilor 
şi modificarea programului sunt simplificate. 

în programarea modulară se utilizează frecvent doi termeni: procedură apelată (procedura care a 
fost invocată de o altă procedură) şi procedură apelantă (procedura care a invocat o altă procedură). 


Apelul procedurilor. Subrutine şi funcţii 
în exemplul de mai sus a fost folosită instrucţiunea Call, al cărei rol este de apelare a procedurii al 
cărei nume se specifică. Formatul său este: 

Call <nume-procedură> 

Ce se întâmplă la sfârşitul execuţiei procedurii apelate (marcat prin End Sub sau Exit Sub)? 
Procedura apelantă redobândeşte controlul asupra execuţiei aplicaţiei. La fel se întâmplă şi cu funcţiile 
apelate: se execută procedura definită pentru funcţia respectivă, după care se returnează o valoare şi 
controlul procedurii din care s-a apelat funcţia (aşa cum se arată în figura 11.1). 
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-Modul FORM 


(General) 'declarare variabile la nivel de modul 
"Proceduri eveniment Private Sub 


numeprocedura () 
Call Calcullmpozit(sngSalBrut) 
ri T a ie een ' 
aj.Br 
End Sub transmite un prelucreaza 
argument date, dar 
"Proceduri standard a nu 
retumează 
Public Sub Calcullmpozit(sngSalBrut as Sin nici o 
"instrucţiunile subrutinei End Sub valoare 
gle) 
Modul 
STANDA 
RD 
(General) 'declarare variabile la nivel de 


modul 'Proceduri standard Private Sub numeprocedura () 
intCeva = OFunctie(a, b) * ----------------- 


End Sub transmite 2 argumente 

"declaraţii de funcţii BAR prelucrează 
Public Function OFunctie (primul, aldoilea) date şi 
' instrucţiunile funcției retumează o 
OFunctie=(primultaldoilea valoare 


)/2 End Function 


Figura 11.1. Modalitatile de apelare a subrutinelor/functiilor 


Deci, pe lângă procedurile-eveniment, Visual Basic lucrează cu alte trei categorii de proceduri: 

>  subrutine (proceduri) standard; 
> proceduri funcţii; 
> proceduri proprietate (despre care se va vorbi în Capitolul 21). 

Aceste categorii de proceduri nu sunt declanşate de producerea unui eveniment. Ele sunt definite şi 
apelate apoi de oriunde din program. De fapt, apelarea se poate face de oriunde dacă procedura a fost 
definită prin cuvântul-cheie Public; dacă este definită cu Private, ea va putea fi apelată doar 
de celelalte proceduri ale modulului din care face parte. 

Procedurile standard şi funcţiile sunt păstrate în modulul form-ului, după procedurile- eveniment 
sau într-un modul extern, ataşat proiectului. Singura deosebire dintre funcţii şi subrutine este că funcția 
retumează o valoare pe care procedura apelantă o atribuie unei variabile sau unui control (cuvintele- 
cheie sunt Function. . . End Function), în timp ce subrutina nu (cuvintele-cheie sunt 
Sub. . «+ End Sub). 

Deci, o procedură standard (subrutină) este o procedură independentă non-eveniment care se 
execută atunci când este apelată de o altă procedură. O funcţie este o procedură independentă non- 
eveniment care se execută atunci când este apelată de o altă procedură şi căreia îi retumează după 
execuţie o valoare. 

în general, programatorii preferă să pună procedurile standard de utilitate generală în module externe. 
Se includ aici subrutinele şi funcţiile necesare în mai multe aplicaţii diferite. Spre exemplu, procedura 
care tipăreşte antetul firmei va fi utilizată în mai multe 


aplicaţii, astfel că se va scrie codul o singură dată, se va salva într-un modul extern, care se va include 
în orice aplicaţie în care este necesară tipărirea antetului. 

Pentru a adăuga un morbgpeterareintiodulzapiicațivjsîralfiBasistra Pro j ect Exploren0Ge 
execută clic dreapta şi se selectează comanda Add Module. Nou! modul apare în structura 
proiectului - prin dublu clic se deschide fereastra Code în care se va scrie codul. 


Definirea subrutinelor 


x» x» 


Termenii „subrutină” şi „procedură” vor fi utilizaţi în continuare cu valoare de sinonime. 

Subrutinele sunt frecvent utilizate în aplicaţiile complexe. Să considerăm spre exemplu o aplicaţie 
pentru calculul salariilor. După cum se ştie, se realizează calcule specifice pentru determinarea 
salariului de bază, apoi a diferitelor sporuri, a impozitului etc. Se pot defini subrutine distincte pentru 
fiecare calcul în parte. 

Pentru definirea unei subrutine ce calculează pentru fiecare student punctajul obţinut la sfârşitul 
semestrului la disciplina Medii de programare, se parcurg următorii paşi: 

1. se stabileşte un nume adecvat, cât mai explicit, pentru procedură (de exemplu 

CalculPunctaj sau Puncta j PartialMedii); 

2. dacă se are in vedere utilizarea procedurii şi în alte aplicaţii se adaugă un nou modul standard 
(din cele cu extensia . bas), altfel se adaugă codul în modulul form-ului (la sfârşitul 
acestuia); 

3. considerând că se adaugă în modulul form-ului curent, se începe cu 
Private Sub CalculPunctaj () 

(dacă se omit parantezele, Visual Basic le va adăuga automat); Visual Basic scrie automat 
sfarsitul procedurii End Sub; 

4. se scrie codul. 

Pentru o subrutină locală, acelaşi rezultat se obţine prin comanda Tools |Add Procedure, 

care va genera automat prima şi ultima linie a procedurii. 
Private Sub CalculPunctaj () 
Dim sngNotaTestl As Single, sngNotaTest2 1s Single, _ 


sngNotaLab As Single, sngNotaProiect A= Single, 
sngPunctaj As Single Dim intNrAbsente As 
Integer 


1 initializare variabile sngNotaTestl = 


txtNotaTl sngNotaTest2 = txtNotaT2 
sngNotaLab = txtNotaLab sngNotaProiect = 
txtNotaP intNrAbsente = txtNrAbs 


If intNrAbsente > 3 sngPunctaj = 0 


Else 
SngPunctaj = sngNotaTest1*0.15 + 
sngNotaTest2*0.15 + sngNotaLab*0.1 + 
sngNotaProiect*0.1 

Endlf 


lblPunctaj = Format(sngPunctaj, "##.##") 
End Sub 


Observaţie: dacă subrutina ar face parte dintr-un modul extern, toate numele controalelor 

trebuie precedate de numele form-ului (exemplu: frmNote. txtNrAbs . Text). 

Cercetati cu atenţie partea de initializare a variabilelor. Datele se preiau din mai multe casete de 
text, Gar în instrucţiunile de atribuire nu s-a speYihal RAS Grictatea Text - am văzut deja că aceasta 
este proprietatea implicită pentru o casetă de text. 

Apelarea acestei proceduri dintr-o altă procedură (să zicem procedura-eveniment Click () a unui 
buton de comandă de pe form) se poate face: 

Call CalculPunctaj () 
sau 
CalculPunctaj 

Deci, o procedură se poate apela prin simpla specificare a numelui ei, caz în care nu se mai 

specifică nici parantezele. 


Definirea funcţiilor 

Singura deosebire esenţială faţă de subrutine este că, la redarea controlului, funcţia retur- nează o 
valoare care se va utiliza în procedura apelantă; de aceea şi modul de apelare este diferit (vezi figura 
11.1). 

Considerând exemplul dintr-un capitol anterior - funcţia VErori () care verifică posibilele erori 
la preluarea datelor, apelarea ei NU se face prin: 

VErori () 

Această funcţie (şi oricare alta) retumează o valoare, care se atribuie de obicei unui control sau 
unei variabile, se utilizează într-o relaţie de calcul ori se compară valoarea returnată cu una dintre 
valorile posibile (în cazul nostru funcţia retumează valoarea 0 sau 1): 

If VErori() = 1 Then 
Exit Sub End If 

Daca functia Calclmp () s-ar utiliza pentru determinarea impozitului pe salariu, atunci valoarea 
returnata ar fi a impozitului calculat, care se poate utiliza astfel: 

lblImpozitSal.Caption = Calclmp() 


sau 
sngTotalRetineri = sngTotalRetineri + Calclmp() 

Spre deosebire de funcţiile predefinite (built-in functions), o funcţie definită de utilizator nu se 
include automat între funcţiile bibliotecii Visual Basic, dar poate fi salvată într-un modul extern, 
accesibil de oricâte ori este necesar. Dacă sunt definite mai multe astfel de funcţii şi subrutine, se poate 
alcătui o bibliotecă de rutine generale, accesibile oricărei aplicaţii. 

Modul de definire a unei proceduri funcţii este asemănător cu cel al subrutinelor, începutul şi 
sfârşitul unei astfel de proceduri se scriu: 

Public Function VErori() As Integer 


End Function 

in linia de inceput se specifica domeniul (se va scrie Private daca functia este accesibila doar 
dintr-un form), numele funcţiei şi tipul valorii returnate (As Integer arată că se retumează un 
număr întreg). Deocamdată nimic despre argumentele (sau parametrii) funcţiei. 


Exemplificăm mai jos o funcţie care calculează comisionul din vânzări cuvenit agenţilor unei 
firme, în condiţiile în care: 


> toți agenţii primeserbYoatandinzédUarealizatisual Basic 111 
dacă vânzările sunt mai mari de 100 de milioane, agenţii primesc  unbonus de 
0. 5% din vânzări, iar dacă sunt mai mari de 200 de milioane,bonusul este de 
0. 8% din vânzările realizate. 


Private Function Comision () As Single 
Dim sngVanzari As Single, sngComis As Single 
Dim sngCG As Single, sngCSl As Single, sngCS2 As 
Single MI e 
‘initializare variabile 
"indicarea comisioanelor din vanzari acordate W. a a 
sngCG = 0.01 
sngCSl = 
0.005 sngCG = 
0.008 
"preluarea valorii 
vanzarilor sngVanzari = 
Val (txtVanzari) 


"calcul comision general din vanzari sngComis = 
sngVanzari * sngCG 


‘adaugare comision suplimentar Select Cas 
sngVanzari Case Is >= 200000000 


sngComis = sngComis + sngVanzariSngCSl 
Case Is 100000000 To 200000000 
sngComis = sngComis + sngVanzari*sngCS2 
End Select 
Comision = sngComis ' Returneaza valoarea calculata 
End Function 


De retinut modalitatea in care unei functii fi este atribuita valoarea calculata: 
Comision = sngComis Nu există nici o variabilă cu numele Comision; 
se foloseşte numele funcţiei, care primeşte astfel valoarea variabilei sngComis. 

Observaţie: pentru a încheia o procedură funcţie înainte de finalul propriu-zis se foloseşte 
instrucțiunea Exit Function. De avut în vedere în acest caz că întotdeauna funcţia trebuie să 
returneze o valoare: atribuirea valorii de returnat trebuie să se facă înainte de Exit Function. 
Observatia este valabilă şi dacă în funcţie avem o structură de control alternativă - trebuie 
prevăzută câte o ieşire din funcţie pe fiecare ramură a acestei structuri de control. 


Utilizarea de argumente în procedurile apelate 

In Visual Basic se lucrează cu două tipuri de variabile: locale şi globale. Reamintim că o variabilă 
locală poate fi utilizată numai în procedura în care a fost declarată. Variabilele declarate în 
secţiunea generală a modulului form-ului (General) sunt globale, fiind disponibile pentru toate 
procedurile din modul. Variabilele declarate cu Public (în loc de Dim) in secţiunea generală 
sunt globale pentru întreaga aplicaţie. 


De regulă se lucrează cu variabile locale (este chiar recomandat de practica programării să se 
evite pe cât posibil variabilele publice - din cauza unor conflicte de nume ori de conţinut pe care le pot 
varidBilă locală dintr-o procedură apelantă nu Nivel Bașiftizată de o procedură apelată din aceasta. 
Singura posibilitate de partajare a datelor este prin intermediul unei liste de argumente. Atunci când o 
procedură apelată are nevoie de date din procedura apelantă, aceasta îi trimite prin instrucțiunea Call 
şi o listă de argumente. 

Printr-o listă de argumente se transmit procedurii apelate variabilele locale necesare acesteia 
pentru prelucrările de efectuat. După transmiterea datelor, acestea rămân variabile locale, dar vor 
putea fi utilizate în execuţia procedurii apelate. în funcţie de modalitatea de transmitere a variabilelor, 
sunt posibile şi modificarea valorii acestor variabile de către procedura apelată şi transmiterea noilor 
valori procedurii apelante. 

Numele de argumente utilizate la apelarea unei proceduri pot fi diferite de numele utilizate de 
aceasta. în exemplul următor variabila Y de la începutul procedurii este aceeaşi cu variabila X din 


cadrul procedurii apelate (la fel W cu V). 
Call Calcul (X,V) 'apelare procedura 


Public Sub Calcul(Y As String, W As Single) 'incepe procedura 

Singura restricţie este ca numărul de argumente transmise, ordinea şi tipul lor să fie aceleaşi ca 
în instrucţiunea Call. Este obligatoriu de precizat tipul tuturor argumentelor transmise la începutul 
procedurii apelate, care trebuie să fie cel declarat pentru variabilele transmise în procedura apelantă. 

Dacă se transmit unei proceduri variabile de tip listă, nu trebuie indicat indicele variabilei în lista 
de argumente, ci doar parantezele de rigoare. Se va scrie: 

Public Sub Calcul (AniVechime () As Integer, SalBaza{) As _ Single, 

Optional ConditiiGrele() As Single, 
Altele () as Single) 

De unde stim pentru câţi salariați se aplică acest calcul? Cu ajutorul funcţiei UBound () se 
determină cea mai mare valoare a indicelui unei variabile listă, aflând deci numărul de valori dintr-o 
listă: 

intNrSal = Ubound(SalBaza) 

Am intalnit aici cuvantul-cheie Optional, care permite declararea unui argument ce poate 
lipsi la apelul procedurii. Spre exemplu, daca folosim aceasta procedura la calculul sporurilor pentru 
salariaţii din sectoarele calde ale unui combinat siderurgic, va trebui să transmitem, sporurile de 
condiţii grele; dacă o folosim pentru salariaţii care nu sunt direct productivi, nu va fi nevoie (probabil) 
de astfel de sporuri. 

Arătam mai sus că se poate apela o procedură şi fără specificarea cuvântului-cheie Call (şi fară 
paranteze, în cazul acesta): 

Calcul 

Numele procedurii este suficient pentru a o apela. Dar cum se transmit în acest caz argumentele? 
Argumentele se trec sub forma unei liste după numele procedurii: 

Calcul AniVechimeUzina () , SalBazaUzina () poa. 
ConditiiGreleUzina(), AiteleUzina() fata 

de varianta completa: 
Call Calcul (AniVechimeUzina(),SalBazaUzina(), _ 
ConditiiGreleUzina(),AlteleUzina()) 
Notă: Argumentul optional ConditiiGreleUzina () se va omite dacă nu e cazul să 


preluăm astfel de sporuri, astfel: 
Calcul AniVechimeUzina () , SalBazaUzina () , „AlteleUzina () 
O altă posibilitate de transmitere a argumentelor in Visual Basic este folosirea argumentelor cu 
nume (named arguments). Această tehnică reclamă precizarea numelui argumentului urmat de 


operatorul ,,: =” şi are o mare utilitate în transmiterea argumentelor în altă ordine decât au fost ele 
definite în procedura apelată, sau în „sărirea” argumentelor opţionale, astfel: 


Calcul AniVechime () :=AniVechimeUzina () , 

SalBaza():= SalBazaUzina () PI 

Altele Prograrfaré modUlannan Visual Basic 113 
Observaţie: din moment ce listele din tabloul de mai sus au toate acelaşi număr de elemente 
(fiind vorba de acelaşi număr n de salariaţi), s-ar fi putut lucra cu un singur masiv, cu n linii şi 4 
coloane, declarate de tip Single (ordin de mărime care include şi Integer-ul de la 
AniVechime) . Dacă într-un astfel de tablou e nevoie de mixarea elementelor de tip numeric cu 
unele de tip şir de caractere ori dată calendaristică, el ar trebui declarat de tip Variant. Trebuie 
avut însă în vedere faptul că tablourile de tip Variant consumă mult mai multă memorie decât 
tipurile de dată ,,conventionale”. 


Transmiterea argumentelor prin adresă (referinţă) şi prin valoare 

Există două variante de transmitere a argumentelor, în funcţie de care se indică dacă procedura care le 
primeşte le poate modifica şi transmite înapoi modificările sau nu. Dacă se transmit prin adresă 
(modul implicit în Visual Basic), procedura apelată poate modifica valorile variabilelor transmise, 
modificări care sunt apoi transmise procedurii apelante. Dacă se transmit prin valoare, procedura 
apelată ar putea modifica valorile, dar aceste modificări nu se pot transmite procedurii apelante. 

Transmiterea prin adresă permite funcţiei sau subrutinei să actualizeze variabilele, modificările 
fiind percepute de variabile şi în procedura apelantă. După ce acesta redobândeşte controlul, 
variabilele transmise şi modificate vor rămâne cu noile valori. Transmiterea prin valoare protejează 
variabilele transmise, valorile lor neputând fi modificate în procedura apelantă (procedura apelată 
primeşte copii ale variabilelor din procedura apelantă). Se recomandă transmiterea datelor prin 
valoare, atunci când modificarea lor nu e necesară sau e riscantă. 

S-a specificat că modul implicit de transmitere este prin adresă - deci cu posibilitate de modificare 
(există pentru acest mod cuvântul-cheie ByRef, care de obicei se omite). Pentru a indica 
transmiterea prin valoare trebuie specificat cuvântul-cheie ByVal înaintea fiecărei variabile de 
transmis prin valoare. 

în exemplele următoare sunt redate două proceduri: procedura Modifica primeşte datele prin 
adresă şi actualizează valorile variabilelor, iar procedura NuModifica primeşte datele prin valoare, 
astfel că, deşi le modifică valoarea, ele vor rămâne neschimbate în procedura apelantă. 

Sub Modifica (X As Integer, Y As Single) 

1 transmitere argumente prin adresa N 

= N * 2 ' dubleaza valoarea 

S=s * 2 

' cand procedura apelanta redobândeşte controlul 
cele doua variabile locale vor avea alte valori End 
Sub 

Sub NuModifica (ByVal X As Integer, ByVal Y As Single) 

1 transmitere argumente prin valoare 

N = N * 2 ' dubleaza valoarea 

SS So % 2 

' cand procedura apelanta redobândeşte controlul ! 

cele doua variabile locale vor avea aceleasi valori 

ca atunci cand au fost transmise (nu se modifica) 
End Sub 


intrebari si exercitii 
1. Care sunt motivele care pledeaza pentru scrierea de programe structurate? 
2. Adevărat sau fals? Programarea structurată este preferată pentru că permite să se scrie mai repede 
programe oricât de detaliate. 
3. Adevărat sau fals? Oricine poate să scrie propriile funcţii. 
4. Ce este greşit în declararea următoarei subrutine? 
Public Subroutine CalcSub() 
5. Când este optional cuvantul-cheie Call în apelarea unei subrutine? 


6. Secvența de mai jos apare în secţiunea General a modulului. Este X o variabilă locală, 
valabilă la nivel de form sau globală pentru întreaga aplicaţie? Dar Y? Răspunsurile ar fi fost diferite 
dacă instrucţiunile erau plasate într-un modul extern? 
114 Dim X As Integer Visual Basic 

Public Y As Integer 
7. De ce trebuie specificat clar procedurii apelate tipul datelor transmise? 
8. Care cuvânt-cheie este implicit: ByRef sau ByVal? 
9. Definiţi o funcţie care să primească un argument (un număr întreg din intervalul 1-1200) si să 
returneze argumentul ridicat la pătrat (la puterea a doua). 
10. Scrieţi o subrutină standard care acceptă 3 argumente (valori numerice, precizie simplă) şi pe 
care le afişează în trei etichete de pe un form, intitulate 1lblSngl, 1b1lSng2, 1blSng3. 


Capitolul 12 
FUNCŢII PREDEFINITE 
9 


Visual Basic oferă utilizatorului mai multe funcţii, grupate în categorii (numerice, şir, pentru dată 
şi timp, de formatare) pentru a realiza diferite operaţiuni pentru care altfel ar trebui scrise secvenţe de 
cod. Unei funcţii i se indică 0, 1 sau mai multe argumente, cu ajutorul căreia funcţia execută calcule 
sau prelucrări şi furnizează un rezultat. Vom prezenta principalele funcții Visual Basic, pe categorii. 


Funcţii numerice 
Cuprind funcţii matematice şi trigonometrice, având ca argumente şi ca rezultate valori numerice. 
Câteva funcţii reprezentative sunt cuprinse în tabelul 12.1. Sunt utilizate în calcule matematice şi 


inginereşti. 
Tabelul 12.1. Câteva funcţii numerice 
Funcție Descriere 
Abs () Calculează valoarea absolută a argumentului specificat. 
Atn () Calculeaza arctangenta. 
Cos () Calculeaza cosinus. 
Exp () Calculeaza e*, x fiind un anume exponent. 
Log () Calculeaza logaritm. 
Sin () Calculeaza sinus. 
Sqrt () Calculează rădăcina pătrată dintr-un număr pozitiv. 
Tan () Calculează tangentă. 
La funcțiile numerice fundamentale se adaugă o listă suplimentară de funcţii derivate 
(Derived Math Functions). 


Functii de tip sir 
Aceste funcţii realizează prelucrări simbolice asupra unor şiruri de caractere. Cele mai frecvent 
utilizate funcţii sunt prezentate în tabelul 12.2. S-au specificat şi argumentele funcţiilor. 


Tabelul 12.2. Principalele funcții de tip sir 


Funcție Descriere 
Chr (<int>) Dă caracterul care are codul ASCII specificat ca argument. 
Lease (<str>) Converteşte toate literele din şirul specificat ca argument în litere mici. 
Left (<str>, <int>) | Extrage primele <int> caractere din şirul <str>. 
Len (<str>) Calculează numărul de caractere din şirul <str> specificat. 
Ltrim(<str>) Elimină spaţiile de la începutul unui şir de caractere. 
Mid (<str>, Extrage int caractere din interiorul şirului <str>, începând cu 
<intStart> caracterul din poziţia <intstart>. Dacă nu se precizează 
[„ <intLen>]) <intLen>, se extrag toate caracterele, până la sfârşit. 
Right (<str>, <int>) | Extrage ultimele int caractere din şirul <str>. 
Funcție Descriere 
IRtrim(<str>) Elimină spaţiile de la sfârşitul unui şir de caractere. 
Str (<num>) Converteşte valoarea numerică care este argument într-un şir de 
caractere. 
Trim(<str>) Elimină spaţiile de la începutul şi de la sfârşitul unui şir. 
Ucase (<str>) Converteste toate literele din şirul specificat în litere mari. 


Exemple de utilizare: 
> Pentru a stabili dacă la stabilirea unei parole utilizatorul a specificat cel putin 5 caractere 
se poate utiliza funcţia Len (} astfel: 
If Len(strParola)<5 Then 


MsgBox "Ati specificat doar " & Len(strParola) 
Endlf 


> Pentru a vedea dacă utilizatorul a răspuns afirmativ Ia o întrebare, trebuie să se ţină cont 
116 că acesta putea răspunde „Da”, „dYissal BBstc’. Pentru a nu testa toate variantele, se va 
folosi funcţia Ucase (), care face conversia în majuscule: 
If Ucase(strRasp) = "DA" Then 


Compararea se face, fireşte, tot cu majuscule... O altă variantă de lucru este conversia in 
litere mici, prin LCase (). 

> Daca se doreşte afişarea într-o casetă de mesaj a notei obţinute la un examen de fiecare 
student, va trebui să se convertească valoarea numerică în şir de caractere prin funcţia 
Str Q: 
MsgBox strNumeStud & " a obtinut nota " &  str(sngNota) 

> Dacă într-o prelucrare se utilizează primele 5 caractere din numele studenţilor (să zicem, 
drept criteriu de repartizare a studenţilor pe grupe), se va scrie: 
strCriteriul = Left (txtNumeStudent, 5) 

> Daca un sir de caractere utilizat într-o prelucrare poate avea spaţii la început sau la sfârşit, 


acestea se pot elimina prin funcţiile LTrimt), RTrim() sau Tr im (), ca în 
exemplul de mai jos: 
strSirulMeu = " <bla bla bla> " 
strSiiScurtatSt = LTrim(strSirulMeu) 'sirul va fi "<bia bla bla> " 
strSirScurtatDr = RTrim(strSirulMeu) 'sirul va fi " <bla bla bla>" 


strSirScurtatDeTot = Trim(strSirulMeu) 'sirul va fi "<bla bla bla>" 


Functii pentru data calendaristica si timp 
Sunt utilizate frecvent in aplicaţii: de la afişarea datei şi/sau orei curente, la transformarea din ani în 


zile sau din ore în minute. Principalele funcţii sunt incluse în tabelul 12.3. 
Tabelul 12.3. Funcţii pentru dată şi timp 
Funcție Descriere 


Date Redă data curentă. 
DateSerial (<intAn>, Redă data specificată prin cele trei argumente. 
<intluna>, <intZi>) 
DateAdd(<strinterval>, Adună numărul de intN la data specificată prin dteData, 


<intN>, <dteData>) corespunzător intervalului de timp dorit (strlnterval) . 

DateDiff (<strlnterval>, Calculează numărul de intervale de timp (specificat prin 
Funcție Descriere 

Kdatal>, <data2>) strinterval) dintre două date. 

DatePart (<strinterval>, Determină intervalul specificat dintr-o 

KdteData>) dată calendaristică. 

Ow Redă data si ora curentă. 

Time Redă ora curentă. 

Timer Determină numărul de secunde care au 


trecut de la miezul nopţii. 
TimeSerial (<ora>,<min>, Redă ora specificată prin cele trei 
Ksec>) . argumente. 


Observaţie: întrucât nu au argumente, funcţiile Date, Now, Timer şi Time nu folosesc 

parantezele. 

Funcţiile din această categorie retumează de obicei valori de tip dată calendaristică şi timp, care se 
păstrează în variabile de tip Date. Pentru a păstra data naşterii într-o variabilă se va scrie: 
dteDataNastere = DateSerial(1981, 5, 29) 

La funcţia DateSerial (), ordinea argumentelor trebuie să fie cea indicată de formatul funcției. 
Anul (dacă este în secolul XX) se poate specifica doar prin ultimele 
2 cifre: 81 în loc de 1981. Afişarea respectivei date se va face în funcţie de setările stabilite de sistem 


sau de formatul indicat. în mod similar se utilizează TimeSerial (). 

Cu ajutorul funcţiei DateSerial () se poate afişa o dată specificată printr-o expresie. Dacă 
dorim să afişăm data la care trebuie returnată o ure Âinprumutată, adică peste 15 zile de la data d61Y8 
octombrie 2000, putem scrie: 

dteDataReturn = DateSerial (2000,10,18+15) 

Funcţiile DateAddt), DateDiff ()$iDatePartt) sunt mai complexe, dar şi deosebit de 
utile pentru diferite calcule legate de data si timp. in formatul lor trebuie specificat intervalul de timp 
care se are in vedere, sub forma unui şir de caractere, astfel: 


h ora 

d ziua 

m luna 

n minut 

q trimestru 
s secunda 

y zi din an 
w zi din 

ww săptămână 
YYYY an 


Spre exemplu, lucrăm cu o variabilă pentru data emiterii unei facturi: dteDataFact. Stiind ca 
termenul de plată este de 21 de zile, se poate determina data la care factura devine scadentă prin: 

IngScadenta = DateAdd("d", 21, dteDataFact) în mod similar, putem afla data 

cu 21 de luni în urmă faţă de data curentă: 
IngAntierioara = DateAdd("m", -21, dteDataCurenta) Observaţie: 
şirurile de caractere ce indică intervalul de timp avut în vedere se scriu între ghilimele. 

Pentru a afla intervalul de timp care s-a scurs între două date, exprimat în zile, luni sau ani, după 
caz, folosim DateDiff  (). Spre exemplu, numărul de luni care a trecut de la darea în folosinţă a 
unui mijloc fix se determină cu: 

IngLuniVechime = DateDiff("m", Date, dteDatlnFolosinta) 

Pentru data curenta s-a utilizat functia Date. 

Putem afla in care zi a săptămânii a fost dat în folosință mijlocul fix, dacă scriem: 

intCareZi = datePart("w", dteDatlnFolosinta) 

Rezultatul este un număr întreg cu valori de la 1 (duminică) la 7 (sâmbătă). Dacă vrem să aflăm 
câte zile mai sunt până la sfârşitul anului, scriem: 

intCateRamase = 365 - datePart("y", Date) 

Pe langa functiile prezentate, exista trei functii utilizate pentru a extrage, intr-o variabila de tip 
Integer, ziua, luna sau anul dintr-o dată calendaristică: Day (), Month ()şi Year (). Fiecare 
dintre ele are un singur argument: data calendaristică din care se extrage informaţia dorită, ca în 
exemplul următor: intAnCurent = Year (Now) 

Funcţia Timer se poate dovedi utilă dacă se doreşte măsurarea intervalului de timp scurs între 
două momente. Se utilizează două variabile: prima păstrează numărul de secunde scurse de la miezul 
nopţii la momentul to, iar a doua numărul de secunde scurse de la miezul nopţii la momentul t,. lată 
un exemplu de utilizare: 

Dim IngStart As Long Dim IngStop As Long Dim 
IngCatTimp As Long Dim strRasp As St ring 


IngStart = Timer Do 
s i_rRasp ~ -i nputBox ("Cat fac 275 + 255?", "Repede") 
Loop Until Val(strRasp) = 570 


IngStop = Timer 
IngCatTimp = IngStop - IngStart 


MsgBox ("V-au trebuit" & Str(IngCatTimp) &" secunde!") 
Nu confundati funcţia Timer cu evenimentul Timer al controlului cu acelaşi nume! 


Funcţii pentru testarea tipurilor de date 


Funcţiile Is... () sunt denumite şi funcţii pentru inspectarea datelor, stabilind dacă o variabilă este 
sau nu de un anume tip. Rezultatul acestor funcţii poate fi True (adevărat) sau False (fals). Aceste 
fuhtBi sunt prezentate în tabelul 12.4. Visual Basic 
Tabelul 12.4. Funcţii îs. 
Funcție Descriere 
IsDate (<arg>) Dă valoarea True dacă argumentul poate fi 


convertii într-o 


dată de tip Date. Se poate 


IsEmpty (<arg>) 


Dă valoarea 
initializat după 


a fost vreodată 
Se utilizează 


True dacă argumentul 


declararea sa. 


IsNull (<arg>) Dă valoarea True dacă argumentul are valoarea 
Nuli. Se poate utiliza şi pentru controale. 
IsNumeric (<arg>) | Da valoarea True dacă argumentul poate fi 


A 


convertit într-o valoare numerică. 


Se poate 


= 


Nu există o funcţie IsString (). Pentru 


funcţia 


testa dacă o variabilă este de tip String, se utilizează 
VarType (<variabilă>). Aceasta are ca argument variabila 


testată, iar rezultatul indică tipul variabilei, sub forma unui număr întreg (vezi tabelul 12.5). Astfel, 
dacă rezultatul este 8, înseamnă că variabila testată este şir de caractere. Funcţia TypeName 


(<variabilă>) 
de dată: Long, 
Tabelul 12.5. Valorile returnate de funcţia VarType 


Integer, 


este asemănătoare, dar returnează un şir de caractere reprezentând numele tipului 
Object etc. 


QO 


Valoare Litera! Descriere 
0 vbEmpty Argument neinitializat 
1 vbNull Sir nul sau dată incorectă 
2 vblnteger Argument de tip Integer 
3 vbLong Argument de tip Long 
4 vbSingle Argument de tip Single 
5 vbDouble Argument de tip Double 
6 vbCurrency Argument de tip Currency 
7 vbDate Argument de tip Date 
8 vbString Argument de tip String 
9 vbObj ect Argument de tip Ob j ect 
10 vbError Argument Error 
11 vbBoolean Argument de tip Boolean 
12 vbVariant Argument de tip Variant 
13 vbDataObj ect] Argument de tip Data Access Obj ect (DAO) (spre 
exemplu, un câmp sau o înregistrare dintr-o bază de date) 
14 vbDecimal Argument de tip Decimal 
17 vbByte Argument de tip Byte 
8192+int | vbArray Argument Array, de tipul indicat de valoarea ce depăşeşte 
8192 (de exemplu, 8194 indică un tablou de tip întreg). 


Funcţii de conversie 


Se utilizează pentru a converti argumentul într-o dată de tipul specificat de funcţia utilizată (vezi 


tabelul 12.6). 


Ta 


belul 12.6. Funcţii de conversie 


Funcție Descriere 


Ase (<şir>) | Converteste şirul de caractere specificat în codul ASCII corespunzător primului 
caracter din şir. 


CCur Converteşte argumentul într-o dată de tip Currency. 
CDb1 Converteste argumentul într-o data de tip Double. 
GINE Rotunjeşte argumentul specificat la următoarea valoare întreagă. 


CLng (<arg>) | Converteşte argumentul într-o dată de tip Long. 
Converteşte argumentul într-o dată de tip Single. 
Converteşte argumentul într-o dată de tip String. 


Converteşte argumentul într-o dată de tip Variant. 


( 
CSng (<arg> 
CStr (<arg> 
CVar (<arg> 


) 
) 
) 
) 


Fix (<arg>) Extrage doar partea întreagă a unui număr (fară rotunjire). 

Int (<arg>) Rotunjeşte argumentul specificat la valoarea întreagă mai mică sau egală cu 
argumentul. 

Hex (<arg>) Converteşte argumentul numeric în valoarea corespunzătoare în hexazecimal. 

Oct (<arg>) Converteşte argumentul în valoarea corespunzătoare în sistemul de numerație 
octal. 


Funcţia Format {) 
Se utilizează pentru a specifica modul de afişare a numerelor, a şirurilor, a datei calendaristice ori a 
timpului. Returnează o dată de tip Variant, care este formatată după specificaţiile utilizatorului. A 
nu se înţelege că funcţia Format () transformă expresia specificată în Variant - se modifică doar 
modul de afişare a expresiei specificate. Formatarea are loc de regulă după ce s-au efectuat toate 
calculele sau prelucrările, în vederea afişării într-o formă finală. 

Formatul de utilizare este: Format (<expresie>, <strFormat>) 

<expresie> poate fi o variabilă, o constantă, un control sau o expresie formată din acestea. 
<strFormat> este una dintre valorile predefinite prezentate în tabelul 12.7 sau un format de afişare 
definit de utilizator sub forma unui şir de caractere. 


Tabelul 12.7. Moduri de formatare predefinite pentru funcţia Format () 
<strFoxmat> Descriere 


“Currency” Afişează expresia numerică în format monetar: semnul $ (utilizat implicit, daca 
nu se modifică această setare), separarea grupurilor de 3 cifre, afişarea cu 2 
zecimale. Valorile negative sunt afişate între paranteze. 


"Fixed" Afişează expresia numerică cu 2 zecimale. 

"Medium Time" | Afişează ora in format 12-ore (cu specificatia a.m. sau p.m.) 

"On/Off" Afişează on dacă expresia este diferită de zero sau are valoarea True şi of f 
dacă expresia este zero sau False. 

"Percent" Afişează expresia numerică în format procentual (valoarea înmulțită cu 100, 
afişată cu semnul %). 

"Scientific" Afişează expresia numerică în notația ştiinţifică. 

"Short Time" Afişează ora în format 24-ore. 

i"True/False" | Afişează True dacă expresia este diferită de zero sau are valoarea True şi False 


dacă expresia este zero sau False. 


|"Yes/No" Afişează yes dacă expresia este diferită de zero sau are valoarea True şi No 


dacă expresia este zero sau False. 


De multe ori utilizatorul doreşte (pentru valorile numerice în special) propriul format de afişare, care 
nu se regăseşte între cele definite pentru <strFormat>. 

Pentru numere, utilizatorul îşi poate defini propriile formate de afişare utilizând caracterele # şi 0, 
împreună cu cele pentru delimitarea grupurilor de 3 cifre şi indicarea mărcii zecimale (. şi ,). Fiecare 
caracter # indică o cifră, iar 0 precizează dacă apar în completare zerouri la început sau la sfârşit. 
Orice alt text specificat în format se va afişa ca atare (vezi exemplul al doilea). 

Pentru data calendaristică se poate defini format propriu utilizând d pentru zi, m pentru lună, y 
pentru an. 


Exemple: 


> afişarea cu 2 zecimale a mediei anuale obţinute de un student: 
IblMediaAnuala = Format (sngMedieAn, "##.00") 
(dacă scriam ,,##.##”, 9.7 s-ar fi afişat 9.7; ,##.00” afişează 9.70) 
120 > afişarea salariului calculat fără zeciMighal Easipararea grupurilor de 3 cifre: 
lblSalariu = Format (sngsSal, "###,### lei") 
(valoarea 2343211.22 se va afişa 2,343,211 lei) 
> afişarea în format procentual a numărului 1 (adică 100.00%): 


lblTotal = Format (1, "Percent") 
> afişarea textului ,,Yes” în locul valorii 1: 
lb1R = Format (1, "Yes/No") 
> afişarea datei curente în format zz-ll-aaaa: 
lblDataCurenta = Format (Date, "dd-mm-yyyy") 


Notă. Şabloanele funcţiei Format () se pot utiliza şi pentru proprietatea DataFormat a 
controalelor de tip casetă de text, listă ori etichetă (în cod sau direct în fereastra 


Properties). 


întrebări şi exerciţii 
1. Care este valoarea șirului strA după fiecare dintre următoarele atribuiri: 


rratloViSatX5" ! d\' aPlicamta xxn 3 xx mr 20 
mmm 32 
Rogo NG ACT 34 
a 37 
aşa Del 
Jar 65 
lip 192 

intA = CInt (20.34) 

intA = Int(-2.8) 


2. Care este valoarea variabilei varX dupa urmatoarea instructiune de atribuire: 
vară = Val (LTrim(Str("10"))) 


3. Cum se poate utiliza funcţia Timer (daca se poate) pentru a măsura timpul scurs pentru 
realizarea unei anume sarcini? 


4. Adevărat sau fals? Funcţia Now redă data sau ora curentă. 
5. Ce rol are separatorul de mii? 


6. Adevărat sau fals? în specificarea unui format de afişare caracterul # semnifică un caracter 
(literă sau cifră). 

7. Ce reprezintă formatul 24-ore de afişare a orei? 

8. Adevărat sau fals? Pentru ca data calendaristică să se afişeze în format specific datei este 
obligatoriu de utilizat funcţia Format (). 

9. Scrieți o procedură prin care să afisati A.M.R.-ul unui soldat cu termen redus (6 luni), care a 
început serviciul militar la: a) 1 februarie; b) 1 octombrie. 

10. Scrieţi o subrutină în care utilizatorul trebuie să introducă ora la care a început munca şi ora la 
care a terminat. Afişaţi timpul cât a lucrat în trei etichete astfel: numărul de ore, numărul de 
minute şi numărul de secunde. 


Capitolul 13 
ELEMENTE DE GRAFICĂ 


Interfetele aplicaţiilor devin mai atractive şi mai arătoase atunci când le sunt adăugate imagini. 
Controalele utilizate în acest scop sunt Image şi Picture Box. Acestea nu permit desenarea de 
linii sau alte elemente grafice (pentru acestea se utilizează Shape, respectiv Line), ci adăugarea 
de imagini şi manipularea lor în cadrul aplicaţiilor. Toate aceste controale şi reprezentarea lor în 


Toolbox sunt reprezentate în figura 13.1. 


m 
k ha 
Amo Peet) 
x 
za 
poe 1320 
al Z- 
a x S 3 
& Width 4 - Rounded Rectangle 
5 - Rounded Square 
i 
ra 


SA 


Figura 13.1. Controalele Line, Shape, Image şi PictureBox 


Controlul Image 
Este utilizat pentru a afişa o imagine dintr-un fişier de pe disc, pe un form. După selectarea controlului 
şi plasarea lui pe form nu este afişată nici o imagine — ecranul arată ca în figura 13.2. 

Trebuie definite proprietăţile prin care se indică imaginea de afişat şi modul de afişare a acesteia 
pe form. Cea mai importantă este proprietatea Picture, prin care se deschide caseta de dialog 
Load Picture, care este de fapt un dialog de tipul File Open, cu care se poate naviga şi alege 
un fişier grafic. Principalele tipuri de fişiere suportate sunt cele cu extensiile: 


G . bmp 
> . gif 
A + Leo 


A . wmf 


122 


Figura 13.2. Plasarea controlului image pe form 


Există câteva fişiere cu imagini în biblioteca Visual Basic (în directorul Graphics), grupate pe 
categorii. De asemenea, pachetul Microsoft Office instalează o bibliotecă de imagini destul de 
consistentă (Clipart). Şi nu în ultimul rând, utilizatorul poate desena propriile sale imagini cu 
programe specializate. 
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Figura 13.3. Definirea controlului Image 


Imaginea din figura 13.3 este preluată din fişierul donkey.wmf- proprietatea Picture are valoarea 
(Metafile). Pentru a delimita imaginea în cadrul form-ului se setează proprietatea Border cu 
1-FixedSingle. Controlul a fost redimensionat pentru ca imaginea să fie vizibilă (dimensiunile nu 
pot fi stabilite exact la plasarea controlului pe form). De reţinut că redimensionarea despre care vorbim 
este făcută pentru control, şi nu pentru imaginea propriu-zisă. Dacă dimensiunile controlului sunt prea 
mici, imaginea va fi trunchiată, dar trunchierea este numai vizuală, nu şi fizică (dacă se 
redimensionează controlul, imaginea este afişată în întregime). 
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„.cu controlul. Image’: 
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6134. Redimensionarea automată a imaginal diñ controlul image 
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redimensionarea ‘auto i: d imaginii pentru a se incadta in 
Anii x 3 „ră A 3 
ne True (vezi figura 13.4). 


In situaţia î 
controlul Ima p 
dimensiunile respeg and proprietatea Stretch. cu y 


incarcareq de ii icăţi lor rai 

Nu se poate facespain si je a unei instructit CSA sqteze proprietatea Picture, deci o 
astfel de instrucţiuie“ Mona: a 

imgPoza. Picture =D: \Utilizatori Poze P . WIN 


Proprietatea Picture are nevoie de mai mult decât o simplă instrucţiune de atribuire. Pentru a 
încărca o imagine într-un control Image trebuia să se utilizeze funcţia LoadPicture () astfel: 

LoadPicture([strFisier]) strFisier este o constantă, o variabilă sau un control 
care deţine calea şi numele fişierului care conţine imaginea dorită. Deci, pentru a încărca poza PC2 . 
wmf, se scrie: imgPoza . Picture = LoadPicture ( "D: \Utilizatori\Poze\PC2 
. wmf " ) Pentru a se asigura încadrarea imaginii in dimensiunile controlului trebuie setată 
proprietatea Stretch cu valoarea True. De asemenea, dacă dimensiunile trebuie modificate 
înainte de încărcare, se setează proprietatea Visible cu False şi se modifică valorile 
proprietăților Height şi Width (altfel dimensionarea riscă să producă o pâlpâire inestetică). Se 
revine apoi la Visible=True . 

Comanda imgPoza. Picture = LoadPicture () va înlătura conţinutul controlului 
imgPoza. 


Controlul Picture Box 


Se poate utiliza similar cu controlul Image. Diferenţele faţă de acesta constau in: 
> Picture Box suportă mai multe proprietăţi, evenimente şi metode; 


> Picture Box poate conţine alte controale, ceea ce-l face util pentru realizarea de linii 
de instrumente sau obiecte similare; 
> Picture Box consumă mai multe resurse, motiv pentru care este mai putin eficient. 

1 hipa plasarea pe form a acestui control si ARH RaSifnui fişier cu o imagine, o diferenţă devine 
evidentă: Picture Box redimensionează automat imaginea pentru a o încadra în dimensiunile 
date; nu are proprietatea Stretch, ca Image. 

Picture Box este utilizat adesea din considerente estetice. Spre exemplu, într-un astfel de 
cadru se pot plasa mai multe butoane de opţiune (ca într-un control Frame) , iar imaginea încărcată 
se va afişa pe fundal (vezi figura 13.5). 
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Figura 13.5. Utilizarea controlului Picture Box 
Trebuie precizat că redimensionarea imaginii nu se face atunci când în cadru se plasează 
o imagine de dimensiuni mai mici decât ale acestuia. în situaţia aceasta trebuie să se micşoreze 
dimensiunile cadrului, nu ale imaginii. Se utilizează proprietatea AutoSize, care se setează cu 
valoarea True. 
Proprietatea Align este utilizată pentru a indica locul în care va apărea controlul Picture 
Box pe form. Se pot indica diferite poziţii, prin valorile specificate: 


0- None - apare acolo unde a fost plasat la proiectare 

1- Align Top - apare în partea de sus a form- 
ului 

2- Align Bottom - apare in partea de jos a form- 
ului 

3= Align Left - apare in partea stângă a form- 
ului 

4- Align Right - apare în partea dreaptă a form- 
ului 


Controlul Picture Box este utilizat pentru crearea de butoane, grupate în linii de instrumente 
(toolbar). Folosind proprietatea Align, linia de instrumente se afişează în partea de sus a form- 
ului. 


Animație în Visual Basic 
Cu ajutorul controalelor Picture Box şi Image se pot realiza animații simple, folosind tehnica 
duplicării, utilizată în crearea desenelor animate. Crearea de aplicații animate complexe presupune 
aceeaşi tehnică, dar mai mult timp şi efort. 

Un alt control util pentru animație este Timer. Se va exemplifica în continuare o aplicație 
simplă, în care o imagine preluată de un control Image se „plimbă” pe ecran. 

După plasarea imaginii pe form, la scurgerea unui anumit interval de timp (setat prin proprietatea 
Interval) se execută procedura-eveniment Timer () care va modifica poziția pe ecran şi va 
înlocui imaginea cu o alta. Dacă intervalul de timp este foarte scurt (jumătate de secundă, spre 


exemplu) şi poziţia se modifică, imaginea va crea impresia că se mişcă pe ecran. 
Paşii de parcurs în crearea aplicaţiei sunt: 


> se defineşte un form, care se rediBiemateaizăgegfiozimativ 7000x6000 twips şi se intitulează5 
Animaţie (proprietatea Caption) ; 

> se plasează pe form un control Image (nu contează poziţia, întrucât aceasta se va ajusta prin 
cod), în care se plasează o imagine din biblioteca Windows - s-a ales „C:\Program 
Files\Microsoft Office\Clipart\Popular\amhappy.wmf ° (trebuie reţinute calea şi numele 
fişierului, întrucât vor fi ulterior utilizate în cod); 

> se redimensionează (dacă e cazul) controlul, se stabileşte True pentru proprietatea 
Stretch şii se modifică numele cu imgPoza; 

>m se adaugă un control Timer, denumit tmrAnim, iar proprietatea Interval se setează 
cu valoarea 500 (adică 2 secundă); 


Figura 13.6. Proiectarea unei aplicaţii de animaţie 
> se adaugă codul. Mai întâi se defineşte procedura 
eveniment Form Load (), prin dublu clic pe fereastra 
form-ului. in această procedură se initializeaza poziţia 
imaginii pe form: 
Private Sub Form load) 
"poziţionarea controlului Image 


imgPoza.Left = 0' distanta fata de margin 
' din stanga a form-ului ’ " W ' ' ': 
imgPoza.Top = 3820 ' distanta fata de 
marginea 
' de sus a form-ului 
End Sub 
> se defineşte procedura-eveniment Timer () - prin dublu clic pe acest control: 
Private Sub tmrAnim_ Timer () 


are rolul de a modifica proprietatile Left si Top 


' astfel ca poza devină animata 


' se declara o variabila statica de tip Boolean 
valoarea inițiala este 

False Static blnCare As 

Boolean 


' se incrementează Left si Top daca mai este 

loc If (imgPoza.Left < 4800) And _ 
(imgPoza.Top > 500) Then 
imgPoza.Left = imgPoza.Left + 100 imgPoza.Top = 
imgPoza.Top =- 50 

Else 


imgPoza.Left = 0 ' altfel se revine la 


imgPoza.Top = 3820 ' poziţia inițiala 

End If 
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' schimbarea imaginii afişate 

If blnCare = True Then 
imgPoza.Picture = LoadPicture("e:\Program FilesV & _ 

"Microsoft Office\Clipart\Popular\amhappy.wmf") 

blnCare = False Els 

imgPoza.Picture = LoadPicture("C:\Program FilesV & _ 

"Microsoft 


Office\Clipart\Popular\amconfus.wmf") blnCare = 
True End If End Sub 


Atenţie! Calea şi numele fişierului trebuie corect definite, fiind specificate ca un şir de caractere 
(între ghilimele). Specificarea lor trebuie să fie conformă organizării directoarelor de pe discul 
utilizatorului (Microsoft Office s-ar putea găsi şi pe alt disc decât C:)! 

Pentru ca schimbarea imaginii şi mişcarea acesteia să fie mai line, se setează proprietatea 


Visible cu False la începutul procedurii Timer (), iar la sfârşitul procedurii se redă valoarea 
True. De asemenea, aplicaţia va rula mai repede dacă este compilată (vezi capitolul privind 
distribuţia aplicaţiilor). 


Declaraţia Static 
în aplicaţia de mai sus se declară o variabilă de tip static. în declararea acesteia, declaraţia Dim este 
înlocuită de Static. Variabilele statice sunt variabile locale, dar, spre deosebire de cele declarate cu 
Dim, ele îşi păstrează valoarea între două apeluri succesive ale procedurii în care sunt declarate. 
Prezentăm un exemplu edificator. 
> procedura apelanta: 
Sub ma in() 
For i= 1 To 8 
ProceduraTest (i) 
Next i 
End Sub 
> procedura apelata: 
Private Sub ProceduraTest (ACitaOara As Ir.teger) 
Static intNumar 
intNumar = intNumar + 1 
End Sub 
Primul apel al procedurii ProceduraTesi; va declara variabila intNumar şi o va initializa 
cu valoarea 0. Următoarele apeluri nu vor mai realiza initializarea (cum s-ar 


întâmpla cu Dim), ci vor trece direct la incrementarea variabilei (intNumar = intNumar 
+ 1), obținându-se astfel valorile 1, 2, 3, ..., 8. 

Revenind la exemplul animației, Elementăciegraiisăedurii tmrAnim Timer ()  varilBfla 
blnCare are valoarea True, la următoarea execuţie a acestei proceduri, blnCare va avea tot 
această valoare. „Jongleria” constă în modificarea acestei valori chiar în interiorul procedurii Timer, 
variabila blnCare comportându-se ca un comutator. 


Controalele linie (Line) şi figură (Shape) 
Sunt instrumentele de desenare ale Visual Basic, care permit trasarea de linii, forme rectangulare sau 
cercuri. Prin aceste două controale, în funcţie de proprietăţile care sunt setate pentru ele, se pot obţine 
următoarele figuri: linie, pătrat, dreptunghi, cerc, oval, pătrat rotunjit sau dreptunghi rotunjit. 

Controlul Line permite desenarea de linii de diferite feluri, lungimi sau grosimi, specificate prin 
valorile proprietăţilor (vezi tabelul 13.1). 
Tabelul 13.1. Controlul Line. Proprietăţi principale 

Proprietate Descriere 

Bordercolor | Precizează culoarea liniei. 
Borderstyle | Poate defini 7 feluri de linii - implicit este 1-Solid. Spre exemplu, pentru 
linie punctată se alege valoarea 4-Dash-Dot. Această proprietate se poate 
defini numai pentru liniile cu grosime de până la | twip (pentru celelalte nu are 
BorderWidth | Indica grosimea liniei, în twips. 


Visible Are valorile True sau False, indicând dacă linia este sau nu vizibilă 
pentru utilizator. 

XI Indica poziţia (în twips) din care începe* linia, fata de marginea stângă a 
form-ului. 

X2 Indica poziţia (în twips) in care se termină linia, fata de marginea stângă a 
form-ului. 

Yl Indică poziția (în twips) din care începe linia, față de marginea de sus a form- 
ului. 

Y2 Indică poziția (în twips) în care se termină linia, fată de marginea de sus a 
form-ului. 


* Această poziție este acolo de unde a început trasarea, deci dacă s-a trasat de la dreapta la stânga, XI este mai mare decât X2. Aceeaşi 
observație şi pentru Y1, Y2. 

Controlul Shape permite desenarea a şase tipuri de figuri, în funcție de valoarea care este setată 
pentru proprietatea Shape (vezi figura 13.7). Valorile proprietății Shape pot fi atribuite (în 
secvenţe de cod) şi prin literali predefiniti; numele acestora sunt formate din particula vbShape la 
care se adaugă descrierea figurii (vbShapeRectangle, de exemplu). Alte proprietăți ale 
controlului Shape sunt prezentate în tabelul 13.2. 
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Figura 13.7. Valorile proprietăţii shape Tabelul 13.2. Proprietăţile principale ale controlului shape 
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Proprietate Descriere 
BackColor Precizează culoarea figurii. 
BackStyle Indică stilul de afişare a culorii: transparent sau 
BorderColor | Precizează culoarea marginilor figurii. 
BorderStyle | Indică tipul de linie folosit în desenare (la fel ca 
BorderWidth | Indica grosimea liniei, in twips. 
FillColor Precizează culoarea de utilizat în cazul umplerii sau 
FillStyle Precizează stilul utilizat în cazul umplerii sau 
Height Indică înălţimea figurii (în twips). 
Left Indică distanţa de la marginea stângă a figurii până 
la marginea stângă a form- ului. 
Shape Indică figura reprezentată prin una dintre cele 6 
valori posibile: 0- 
Rectangle, 1-Square, 2—Oval, 3-Circle, 4-Rounded 
Rectangle, 5-Rounded Square. Implicit este O-Rectangl 
Top Indica distanţa de la marginea de sus a figurii până 
la marginea de sus a form- ului. 
Width Indică lăţimea figurii. 


Observaţie. La momentul execuţiei, programatorul poate desena figuri direct pe form, folosind 
metodele grafice PSet (), Line () şi Circle (). 


întrebări şi răspunsuri 


N Re 


Care dintre controalele pentru imagini este mai eficient? 
Ce se întâmplă dacă se încarcă o imagine într-un control Image şi acesta are dimensiuni mai 


mici decât ale imaginii pe care o conţine? 


Ce se întâmplă dacă se încarcă o imagine într-un control Image şi acesta are dimensiuni mai 


mari decât ale imaginii pe care o conţine? 


Ce se întâmplă dacă se încarcă o imagine într-un control Picture şi acesta are dimensiuni mai 


mici decât ale imaginii pe care o conţine? 
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12. 


Ce se întâmplă dacă se încarcă o imagine într-un control Picture şi acesta are dimensiuni mai 

mari decât ale imaginii pe care o conţine? 

Ce este greşit în următoarea instrucţiune, presupunând că numele fişierului şi calea sunt corecte? 
imgFace.Picture = "C:\DataPics\Flower.ico" 

Cu ajutorul cărui control se pot realiza efecte de animaţie? 

Adevărat sau fals? O variabilă statică este o variabilă globală deoarece valorile ei nu se schimbă din 

momentul încheierii unei proceduri până în momentul execuţiei unei proceduri următoare. 

Când este initializata o variabilă statică? 


. Adevărat sau fals? Controlul Shape poate desena doar pătrate/dreptunghiuri. 
11. 


Adevărat sau fals? Trebuie să utilizaţi funcţia LoadPicture () pentru a initializa sau schimba 
valoarea afişată de controlul Shape. 
Pentru ce se utilizează proprietatea Fi11Style? 


Capitolul 14 CREAREA DE MENIURI ÎN 
APLICAŢIILE 


VISUAL BASIC 


Toate aplicaţiile întâlnite în sistemul Windows lucrează cu meniuri din care utilizatorul alege 
operaţiunea dorită ori specifică opţiunile sale de lucru. Meniul asigură o interfaţă prietenoasă, uşor de 
exploatat. Comenzile sau operaţiunile sunt grupate în submeniuri — spre exemplu, toate comenzile 
care lucrează cu fişiere (creare, salvare, deschidere, închidere) sunt grupate într-un meniu denumit 
File (este recomandat ca numele stabilit să fie acelaşi în toate aplicaţiile, devenindu-i astfel familiar 
utilizatorului). 


Editorul de meniuri 

Componentele unui meniu sunt ilustrate in figura 14.1. Un meniu are mai multe submeniuri. 
Meniurile şi submeniurile sunt compuse din opţiuni, care la rândul lor pot activa alte submeniuri sau 
anumite comenzi ori ferestre de dialog. 
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Figura 14.1. 
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în Visual Basic se poate adăuga un meniu imediat sub linia de titlu a oricărui form. Atunci când se 


adaugă într-un form o linie de meniu, aceasta se va defini prin proprietăţi ca şi la alte controale. 
Totuşi, meniul nu este inclus nici în Toolbox, nici în vreo bibliotecă. Definirea completă a unui 
meniu se face cu ajutorul editorului de meniuri. Acesta se apelează prin Tools | Menu Editor 
(sau Ctr1+E, sau clic-dreapta pe form-ul în curs de proiectare) şi cuprinde instrumente de definire 
a meniului organizate într-o casetă de dialog (vezi figura 14.2). 


Menu Editor 
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Figura 14.2. Editorul de meniuri Visual Basic 

Crearea meniului prin editorul de meniuri nu înseamnă scrierea automata a codului. Proiectantul 
aplicaţiei trebuie să scrie proceduri-eveniment care să „lege” opţiunile din meniu de acţiunile care 
trebuie executate. Practic, atunci când utilizatorul selectează o opţiune din meniu, Visual Basic 
generează evenimentul CLick () - acesta fiind singurul eveniment posibil pentru acest control. 
Definirea şi modificarea procedurii-eveniment se fac prin punctarea meniului cu mouse-ul şi alegerea 
opțiunii pentru care se doreşte scrierea procedurii. 

Cu ajutorul editorului de meniuri se definesc: submeniuri, linii separatoare (care grupează mai 


multe componente pe ,,familii” de opţiuni), componente de validare, taste sau combinaţii pentru acces 
direct (hotkeys, shortcut-uri). 


Definirea liniei de meniu 
Este primul lucru si cel mai usor de facut. Se considera, pentru exemplificare, un meniu alcatuit din 


opţiunile: Fişiere, Editare, Opţiuni, Ajutor. Se parcurg următorii paşi: 
1. apelarea editorului de meniuri, în care singurele elemente obligatoriu de definit sunt 
Caption şi Name (corespund proprietăţilor similare); 
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2. se defineşte prima opţiune: la Caption se scrie &Fisiere (caracterul & din fata literei F 
indică combinaţia directă (Alt + F) utilizată pentru apelarea opțiunii Fişiere), iar la Name 
mnuFisiere; 

3. se execută clic pe butonul Next, pentru a adăuga următoarea opţiune. Se introduc apoi definițiile 


pentru aceasta: la Caption se scrie &Editare, iarla Name mnuEditare; 

4. se procedează la fel pentru celelalte două opţiuni: la Caption se scrie SOptiuni, respectiv 
&Aj utor, iarla Name mnuOptiuni, respectiv mnuAjutor. Pe măsură ce se adaugă o 
opţiune în meniu (cu butoanele Insert - înainte de cea curentă ori Next - după cea curentă), aceasta 
va apărea şi în partea de jos a ferestrei editorului. Dacă ordinea nu este cea convenabilă, se poate 
muta opţiunea curent selectată, cu ajutorul butoanelor «t!, respectiv 4'. După definirea tuturor 
opţiunilor, eventuale modificări se pot face după selectarea opțiunii din lista de jos; 

5. se închide editorul de meniuri; linia de meniu proiectată apare pe form (vezi 
figura 14.3). 


Foiml Eisiere Editare Opţiuni Ajutor 


Figura 14.3. Linia de meniu obţinută 


Observaţie: Proprietăţile Enabled şi Visible au implicit valoarea True 

(casetele de validare corespunzătoare sunt marcate), pentru că cel mai adesea se doreşte ca 

opţiunile din meniu să fie vizibile şi active. Dacă o opţiune trebuie Ia un moment dat dezactivată 

sau ascunsă, aceasta se face prin program. Se observă că numele atribuite opţiunilor de meniu au 
prefixul mnu, astfel că se vor distinge cu uşurinţă în cadrul codului. 

O dată adus meniul în această fază, putem lansa form-ul în execuţie şi vom constata că, din punct 
de vedere vizual, meniul tocmai creat se comportă ca orice meniu din aplicaţiile Windows. Totuşi nu 
se întâmplă nimic la selectarea unei opțiuni. Trebuie adăugate toate submeniurile sau comenzile, dar şi 
acţiunile de executat (prin definirea procedurilor- eveniment corespunzătoare). 

Meniul pe care l-am definit (la fel ca celelalte meniuri din Windows) se numeşte meniu de tip pull- 
down, deoarece eventualele submeniuri aparţinând fiecărei opţiuni sunt afişate doar dacă se execută 
clic pe opţiunea respectivă (sau prin combinaţia directă Alt + litera). Definirea meniului se 
poate face în două variante: cea de faţă, în care s-au definit toate opţiunile de pe linia de meniu, după 
care se reia definirea componentelor fiecărei opţiuni sau varianta 2, în care după definirea unei opţiuni 
se definesc toate suboptiunile, apoi se defineşte altă opţiune din linia de meniu ş.a.m.d. 
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Se va exemplifica în continuare definirea opțiunii Fişiere, sub care se regăsesc 


3 opţiuni: Fişier Nou, Deschide şi Exit şi o linie de separare după primele două opţiuni. 


înainte de a defini aceste componente, trebuie înţelese celelalte proprietăţi ale editorului de meniuri, 


prezentate în tabelul 14.1. 


Tabelul 14.1. Proprietăţile editorului de meniuri 


Proprietate Descriere 

Checked Specifică dacă opţiunea va avea afişat înaintea numelui semnul S. Acesta este 
utilizat de opţiunile de tip comutator (exemplu: afişează data curentă la bazal 
ferestrei), care pot fi la un moment dat selectate (bifate) sau nu. Prezenţa semnului 
IS din faza de proiectare arată că opţiunea va apărea implicit bifată (proprietatea 
are valoarea True). Pentru ca opţiunea să se deselecteze, trebuie definită o 
procedură în care să se atribuie proprietăţii valoarea False. 

HelpContext1D | Este un cod care se potriveşte descrierii unei porţiuni anume dintr-un fişier Help 

care va fi ataşat aplicaţiei (pentru ajutor privind opţiunea respectivă). 
Index Dacă se creează un array de opţiuni de meniu, specifică indicele array-ului. 
Şhortcut 


Precizează combinaţia de taste (CTRL+tasta) pentru acces direct de utilizat la o 
listă ascunsă de opţiuni. 


IWindow List 


Specifică dacă opţiunea de meniu lucrează în regim MDI (multiple-document 
interface), afişând lista tuturor documentelor deschise în ferestre separate. 


Definirea celorlalte componente de meniu se face la fel ca pentru cele deja create, cu menţiunea 
că pot apărea în plus proprietăţi suplimentar definite. De asemenea, se utilizează cele 4 butoane cu 
săgeți din stânga butonului Next, pentru a ierarhiza opţiunile, arătând care componente aparţin cărei 


opţiuni de meniu. 


Butoanele şi se utilizează pentru a indica opţiunea de meniu căreia îi aparţine 


componenta definită. Butoanele ^ şi ^ mută o componentă a meniului cu o poziţie în sus sau în jt5s în 


cadrul listei, restabilind ordinea sau apartenenţa la un anumit submeniu, dacă este 
necesar. 
ADeschide Ok 
mnuFisiereDeschide Cancel 
Index: | Shorsut: Lairo £] 
jHelpContextiD: |~0 f' Checked W NegotiatePosition: jd - None _^j 
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Figura 14.4. Definirea submeniurilor si optiunilor cu editorul de meniuri 


Definirea componentelor opțiunii Fişiere se face astfel: 

1. se selectează din fereastra de jos opţiunea SEditare, după care se selectează butonul Insert, 
care va genera o pats oul agit de cen TE uai Bas 25 

2. se apasa butonul care arata ca noua optiune se va inclu e în Submeniul Fişiere (efectul! este 
afişarea a 4 puncte (....), care vor preceda numele opțiunii). Acest buton se foloseşte o singură 
dată pentru meniul Fişiere; 

3. se definesc proprietățile Caption (Fişier &Nou) şiName (mnuFisiere Nou); 

se selectează butonul Next pentru a genera o poziție nouă după cea curentă, după care se apasă 
butonul m>; se definesc proprietățile Caption (&Deschide) şi Name 
(mnuFisiereDeschide); se defineşte proprietatea Shortcut, prin care se stabileşte 
combinația de taste pentru lansare directă a comenzii Deschide; se alege din lista ascunsă 
CLerL+o; 

5. se adauga linia de separare, astfel: la proprietatea Caption se scrie - (liniuta de subliniere), 

iar la Name (mnuFileBarl) ; 

6. se adaugă ultima comandă din submeniul Fişiere, a cărei proprietate Caption este 

E&xit, procedând la fel ca pentru precedenta; se poate da numele mnufisiereExit. 

In fereastra editorului de meniuri, meniul proiectat arată ca în figura 14.4. 

Liniile de separare sunt utilizate pentru a delimita mai multe submeniuri sau comenzi care fac parte 
din aceeaşi categorie. Toate liniile de separare au aceeaşi valoare pentru proprietatea Caption: - 
(liniuta de unire), numele fiind definite generic mnuFileBarl, mnuFileBar2 şi aşa mai departe. 
Nefiind obiecte utilizate în cod, se pot utiliza denumiri precum Sepl, Sep2 etc. 

Practic, componentele unui submeniu pot fi: 

> submeniuri, dacă la rândul lor contin alte componente; 

> comenzi; 

> opțiuni de tip comutator (care pot fi la un moment dat bifate sau nu, proprietatea Checked 

având valoarea True, respectiv False). 

în exemplul de față se poate transforma comanda Deschide într-un submeniu, care conține 
comenzile Text şi Binar. Definirea se face astfel: poziționare pe opțiune, apoi clic pe butonul 
Insert, după care se apasă încă o dată butonul care va trece noua opțiune pe nivelul 2, în cadrul 
submeniului Deschide (se vor afişa înaintea opțiunii 8 puncte, adică ). 

Observaţie: dacă la un moment dat Deschide nu mai este comandă, ci submeniu, 

nu se poate menţine shortcut-ul Ctr1+0 - un shortcut se poate defini numai pentru o 

comandă individuală. 


Definirea procedurilor-eveninicnt 
După închiderea editorului de meniuri, trebuie definite procedurile ataşate meniului, astfel încît atunci 
când utilizatorul execută clic pe o comandă din meniu, să se execute acţiunea dorită. 

Spre exemplu, comanda Exit din meniul Fişiere trebuie să închidă aplicaţia. Pentru a defini 
această acţiune, se deschide meniul Fişiere şi se execută clic pe Exit, moment în care se 
deschide fereastra Code pentru a defini procedura-eveniment mnuFisiere 2xit Click(): 
Private Sub mnuFisiereExit Ciick() 

Unload Me End End Sub | 

in mod similar trebuie definite celelalte proceduri. Dacă o comandă din meniu execută aceeaşi 
acţiune ca şi un buton de comandă sau alt control, nu trebuie scrisă din nou procedura şi nici nu trebuie 
copiat codul din procedura deja definită. Reamintim că soluţia este invocarea procedurii-eveniment 


care a fost scrisă deja. Spre exemplu, avem un buton cmdSortare şi o opţiune de meniu 
mnuOperatiuniSortare, ambele realizând aceeaşi operaţiune. Presupunând că aceasta a fost 
defjnjtă în procedura clic a butonului de comandă, ptu opțiunea de meniu Sortare vom scrie 
doar: 
Private Sub mnuOperatiuniSortare Click() cmdSortare Ciick End Sub 
Acest fragment de cod funcţionează doar dacă butonul cmdSortare se găseşte pe acelaşi form 
cu meniul. în caz contrar, procedura se invocă astfel: 
nume _form.cmdSortare Click 


= 


ntrebări şi răspunsuri 

Adevărat sau fals? Elementele de meniu sunt controale caracterizate prin proprietăţi specifice. 

Adevărat sau fals? în cadrul aceleiaşi aplicaţii se poate defini un meniu pentru fiecare form. 

Cum ştie editorul de meniuri cărui submeniu îi aparţine o anumită opţiune? 

Adevărat sau fals? Se poate defini o combinaţie de tip shortcut pentru o opţiune de meniu care 

deschide un submeniu. 

Ce diferenţă există între un shortcut de meniu şi un hotkey pentru un buton de comandă? 

6. Adevărat sau fals? O linie separatoare dintr-un meniu este creată cu ajutorul controlului Line din 
toolbox. 

7. Care este procedura-eveniment utilizată în lucrul cu meniuri? 

8. Care proprietate este utilizată pentru a activa sau dezactiva o opţiune comutator într-un meniu? 


Peter 


Capitolul 15 
LINII DE INSTRUMENTE SI ALTE ELEMENTE 


GRAFICE 


Liniile de instrumente sunt prezente în majoritatea aplicaţiilor, fiind preferate de utilizatori datorită 
modului facil în care sunt lansate comenzile. In plus, operaţiile uzuale din toate aplicaţiile Windows 
sunt simbolizate prin pictograme (aproape) identice, plasate în aproximativ aceleaşi zone şi aceeaşi 
ordine pe ecran. Este de dorit ca şi aplicaţiile create în regim propriu să respecte aceste standarde; 
astfel, ele vor fi mai uşor de învăţat şi de 


utilizat. i, 
Pentru a crea o linie de instrumente în mod tradiţional se utiliza un control Picture in 


care se aliniau mai multe controale de tip CommandButton cu stilul Graphical (care permitea 
afişarea unor imagini pe aceste butoane). O cale mai simplă oferită de Visual 

Basic 6.0 este utilizarea unor controale specializate. J-i] j-j- 

Aceste controale nu se găsesc însă printre cele intrinsece, care apar in mod 

implicit în Toolbox, dar se pot adăuga din bibliotecile în care sunt livrate. ‘ 

Am adaugat intr-un capitol precedent controlul DialogBox pentru crearea . jE, 
casetelor de dialog. Controlul utilizat pentru crearea unei linii de instrumente se 

numeşte Toolbar şi face parte dintr-un set de controale denumit Microsoft ir m 
Windows Common Controls 5 . 0. Adăugarea acestei componente se 

face Rit 
prin comanda Project| Components, selectand din listă biblioteca respectivă (in funcţie de 
versiunea sistemului de operare si a pachetului Visual Studio, poate avea alt sufix decat 5.0). in 
această bibliotecă sunt mai multe controale, care vor apărea in Toolbox (vezi figura alăturată). 


Controlul listă de imagini (ImageList) 

O linie de instrumente constă din mai multe butoane aşezate unul lângă altul, fiecare având 
reprezentată o anumită imagine-simboi (icon) pentru operaţiunea pe care o execută. Controlul 
Toolbar nu poate reţine imaginile care sunt plasate pe butoane, dar a fost proiectat să lucreze 
împreună cu ImageList, un control care face parte din aceeaşi bibliotecă (a fost adăugat deja în 


Si 


Toolbox). = 

Crearea unei linii de instrumente începe prin defini-ea unei liste de imagini, prm Image List 
(vezi figura 15.1). Pentru acest control, la fel ca pentru Timer, Picture Box sau Picture, 
poziţia şi dimensiunile definite la creare nu au importanţă. Controlul Image List nu apare la 
execuţie, dar imaginile pe care le gestionează pot fi afişate în alte controale (cum ar fi butoanele). 
Acest control lucrează ca un array de imagini. 
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Figura 15.1. Controlul ImageList 
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Figura 15.2. Proprietăţile controlului ImageList 


După ce am denumit controlul nostru imlToolbar, vom proceda la popularea listei cu acele 
imagini pe care le vom dori afişate pe butoanele viitoarei bare de instrumente. Imaginile pe care le vom 
utiliza sunt stocate pe disc sub forma unor fişiere de tip „icon” (pictogramă), cu extensia . ico, reunite 
într-un subdirector Graphics, ce se află în directorul VB98 sau într-un altul conţinut în „C:YProgram 
FilesY Microsoft Visual Studio”, în afară de fişierele .ico, controlul ImageList recunoaşte si 
fişiere .bmp, .jpg şi .gif (nu lucrează însă cu fişiere .wmf) . 

Deci, după plasarea pe form a controlului ImageList şi specificarea numelui imlToolbar se 
deschide fereastra Property Pages, cu ajutorul căreia se definesc poziţia, mărimea şi conţinutul liniei de 
instrumente (vezi figura 15.2). în privinţa dimensiunii imaginilor, care se defineşte în prima pagină - 
General -, aceasta nu are importanţă dacă se lucrează cu fişiere de tip . ico. Atunci când sunt reunite 
imagini din fişiere de tipuri 
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diferite, trebuie specificată dimensiunea pentru fiecare imagine în parte. Totuşi se preferă fişierele . 
ico, deoarece: 

consumă puţină memorie; 

au un număr redus de culori, deci se vor afişa inteligibil pe ecranul oricărui sistem de calcul; 

> au dimensiunile standard de 16><16 (Small Icons), 32*32 (Large Icons) ori 48*48, ceea ce face 

să se încadreze optim pe butoanele de comandă; 

> pot avea porţiuni transparente, spre deosebire de alte formate la care fundalul este un dreptunghi 

alb. 

Se trece apoi la pagina Images, pentru a specifica lista imaginilor de afişat. Se utilizează butonul 
Insert Picture, care deschide o casetă de dialog pentru selectarea imaginii dorite. Prima imagine din 
linia de instrumente exemplificată în continuare este database . ico. Se adaugă apoi alte 2 
imagini: datawiz . ico şihelp. ico (vezi figura 15.3). 

Pagina Color permite schimbarea culorilor utilizate pentru fundal, pentru butoane, pentru indicaţiile 
Tooltip etc. (sunt selectate implicit culorile standard ale aplicaţiilor Windows). 
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Figura 15. 3. Selectarea imaginilor pentru viitorul control Toolbar 


Se observă că lista de imagini are limita inferioară 1, şi nu 0, ca majoritatea array-urilor din Visual 
Basic! 


Controlul linie de instrumente (Toolbar) 

După trasare, acest control se plasează în partea de sus a form-ului, acolo unde se afişează de regulă 
aceste instrumente. Locul liniei de instrumente se poate modifica prin valoarea proprietății Align 
(implicit are valoarea 1-AlignTop). Ise modifică numele cu t1bBD. 

Se deschide fereastra Property Pages, la fel ca pentru controlul ImageList. Se lucrează mai 
întâi în pagina General, specificând numele listei de imagini (se alege din lista ascunsă 
imlToolbar) şi se modifică stilul bordurii cu 1-ccFixedSingle, pentru a delimita linia de 
instrumente de restul form-ului (vezi figura 15.4). 
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Figura 15.4, Proprietăţile generale ale controlului Toolbar 
Pentru a adăuga butoanele în linia de instrumente, se deschide pagina Buttons (vezi figura 15.5). Se 
utilizează butonul inscripţionat Insert Button, după care trebuie precizat care dintre imaginile din 
ImageList se va afişa pe buton, prin valoarea indicelui acesteia. 
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Figura 15.5. Definirea butoanelor din linia de instrumente 


Ordinea de afişare a butoanelor pe linia de instrumente este cea în care sunt definite şi este reţinută de 
proprietatea Index. Trebuie apoi indicat un nume de referință pentru fiecare buton în căsuţa Key, prin intermediul 
căruia la execuţie se va identifica butonul pe care utilizatorul a executat clic. Se poate specifica şi un text de afişat 
pe fiecare buton prin proprietatea Caption. în fine, prin proprietatea ToolTipText se precizează textul explicativ de 
afişat la execuţie atunci când este indicat butonul respectiv cu mouse-ul. în figura 15.6 este prezentată forma finală 


a liniei de instrumente. 
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diferite, trebuie specificată dimensiunea pentru fiecare imagine în parte. Totuşi se preferă fişierele 


.ico, deoarece: 

> consumă puțină memorie; 

y au un număr redus de culori, deci se vor afişa inteligibil pe ecranul oricărui sistem de calcul; 

> au dimensiunile standard de 16x16 (Small Icons), 32x32 (Large Icons) ori 48x48, ceea 

ce face să se încadreze optim pe butoanele de comandă; 

> pot avea porțiuni transparente, spre deosebire de alte formate la care fundalul este un 

dreptunghi alb. 

Se trece apoi la pagina Images, pentru a specifica lista imaginilor de afişat. Se utilizează butonul 
Insert Picture, care deschide o casetă de dialog pentru selectarea imaginii dorite. Prima imagine din 
linia de instrumente exemplificată în continuare este database . ico. Se adaugă apoi alte 2 
imagini: datawi z . ico şihelp. ico (vezi figura 15.3). 

Pagina Color permite schimbarea culorilor utilizate pentru fundal, pentru butoane, pentru 
indicațiile Tooltip etc. (sunt selectate implicit culorile standard ale aplicațiilor Windows). 
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Figura 15.3. Selectarea imaginilor pentru viitorul control Toolbar 


a 


Se observa că lista de imagini are limita inferioară 1, şi nu 0, ca majoritatea array-urilor din 
Visual Basic! 


Controlul linie de instrumente (Toolbar) 


După trasare, acest control se plasează în partea de sus a form-ului, acolo unde se afişează de regula 
aceste instrumente. Locul liniei de instrumente se poate modifica prin valoarea proprietatii Align 
(implicit are valoarea 1-AlignTop) . Ise modifică numele cu t1bBD. 

Se deschide fereastra Property Pages, la fel ca pentru controlul ImageList. Se lucrează mai 
întâi în pagina General, specificând numele listei de imagini (se alege din lista ascunsă 
imlToolbar) şi se modifică stilul bordurii cu 1 ccFixedSingle. pentru a delimita linia 
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Figura 15.4, Proprietăţile generale ale controlului Toolbar 


Pentru a adăuga butoanele în linia de instrumente, se deschide pagina Buttons (vezi figura 15.5). Se 
utilizează butonul inscripţionat Insert. Button, după care trebuie precizat care dintre imaginile din 
ImageList se va afişa pe buton, prin valoarea indicelui acesteia. 
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Figura 15.5. Definirea butoanelor din linia de instrumente 


Ordinea de afişare a butoanelor pe linia de instrumente este cea în care sunt definite şi este reținută 
de proprietatea Index. Trebuie apoi indicat un nume de referință pentru fiecare buton în căsuţa Key, prin 
intermediul căruia la execuţie se va identifica butonul pe care utilizatorul a executat clic. Se poate 
specifica şi un text de afişat pe fiecare buton prin proprietatea Caption. în fine, prin proprietatea 
ToolTipText se precizează textul explicativ de afişat la execuţie atunci când este indicat butonul 
respectiv cu mouse-ul. în figura 15.6 este prezentată forma finală a liniei de instrumente. 
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Figura 15.6. Forma finală a liniei de instrumente 


La execuția aplicației se observă linia de instrumente în partea de sus a form-ului. Se poate executa 
clic pe butoane, acestea se vor selecta, dar nu se va executa nici o acțiune. După oprirea aplicației se 
trece la scrierea codului. Pentru a indica operațiunea care se va executa pentru selectarea fiecărui buton, 
se descrie procedură-eveniment clic a butoanelor din linia de instrumente t1bBD (prin dublu clic pe 
linia de instrumente care deschide fereastra Code) : 


Private Sub Toolbarl ButtonClick; (ByVal Button As 


MSComctlLib.Button) End Sub 

Evenimentul ButtonClick () se produce atunci când utilizatorul execută clic pe unul dintre 
butoane. Butonul care a fost apăsat este identificat prin numele specificat pentru metoda Key sau prin 
valoarea de la proprietatea Index. Proprietatea Key returnează şirul de caractere definit ca nume de 


referință 'a proiectare. 
Private Sub tlbBD ButtonClick(ByVval Button As MSComctlLib.Button) 
' deocamdata afiseaza diferite mesaje, in funcţie de ' butonul 


selectat de utilizator Select Case Button.Key Case Is = "crea": 
MsgBox "Ati selectat crearea unei baze de date" 
Case Is = "wiz": 


MsgBox "Ati selectat crearea asistata a BD" 
Case Is = "aju": 


MsgBox "Ati solicitat ajutor" 
Case Is = "exit": 
Unload Me End End Select 


ry, 7 
End Sub 


Exemplul este destul de simplist; sigur că la selectarea unui buton ar trebui să se întâmple mai mult 
decât afişarea unui banal mesaj. Singura secvență adecvată este cea de la butonul Exit. Mai trebuie 
precizat că este recomandat ca acțiunile complexe să fie definite în cadrul unor subrutine, apelate după 
necesități. 

Dacă această linie de instrumente s-ar fi definit pe lângă o linie de meniu (şi frecvent se procedează 
astfel), pentru butoanele care dublează opțiunile corespunzătoare din meniu se pot apela procedurile 
deja definite pentru acestea. Spre exemplu, dacă ieşirea din aplicație se regăseşte într-o opțiune 


mnuFisiereExit, s-ar fi putut scrie: 
Case Is = "exit": Call mnuFisiereExit Click întrebări şi exerciţii 


1. Care control lucrează împreună cu controlul Toolbar pentru a defini iconurile dintr-o linie de 
instrumente? 

Care este rolul metodei Key a controlului Image? 

De ce apare un argument în specificarea procedurilor eveniment ale controlului Toolbar? 
Adevărat sau fals? Controlul Toolbar înlocuieşte de regulă o linie de meniu. 

Adevărat sau fals? Locul liniei de instrumente este în partea de sus a formului şi nu poate fi 


RTR D 
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modificat. 


Capitolul 16 UTILIZAREA FIŞIERELOR 


Visual Basic are atât facilităţi pentru lucrul cu fişiere clasice de date, cât şi pentru bazele de date. 
Lucrul cu bazele de date va fi detaliat în capitolul următor. 
colecţiilor mari de date, dar îşi găsesc utilitatea în alte situaţii, de la memorarea parametrilor de lucru 
ai unei aplicaţii până la memorarea de date create cu un procesor de texte. 

Un fişier este o colecţie de date aflate în legătură, stocate pe un suport. în funcţie de conţinutul 
lor, fişierele pot fi de mai multe tipuri, ca de exemplu: fişiere de date, fişiere de text, fişiere de 
comenzi şi multe altele. O aplicaţie lucrează cu unul sau mai multe tipuri (formate) de fişiere. în 
principal, Visual Basic lucrează cu (creează şi consultă) două tipuri de fişiere: fişiere de text şi fişiere 
binare. Fişierele de text se mai numesc şi fişiere ASCII, deoarece conţin şiruri de caractere ASCII 
(pentru care un octet corespunde unui caracter afişat, fiind „citibile cu ochiul liber”). în fişierele 
binare sunt memorate date de tipuri diverse, fiecare din aceste date ocupând unul sau mai multi octeți; 
astfel de fişiere pot fi acccesate de programe special concepute. în mod traditional, fişierele ASCII 
au extensia „txt, iar fişierele binare extensia .dat, dar nu există nici o restricţie în acest sens. 


Modalităţi de precizare a numelor de fişiere 

Pentru ca Visual Basic să poată accesa un fişier trebuie indicată locaţia exactă a fişierului respectiv pe 
disc (calea). Nu este o practică adecvată includerea numelor şi căilor fişierelor direct în codul-sursă, 
întrucât astfel aplicaţia este „legată” de fişierele precizate acolo. Mult mai indicată este oferirea 
opțiunii de selecţie a fişierelor de deschis (de denumire a fişierelor nou create) de către utilizator. 
Dacă utilizatorul este cel care specifică fişierul, se pot utiliza casetele de dialog FileOpen sau 
FileSave care permit selectarea discului, directorului şi fişierului dorit. 


Observaţie: nu se va confunda caseta de dialog Fi leOpen cu comanda Filei Open... 
din meniul mediului Visual Basic, deşi aspectul ferestrei afişate este asemănător. Fi leOpen 
este un dialog standard, creat printr-o funcţie Windows şi disponibil în majoritatea aplicaţiilor (a 
se revedea în Capitolul 10 modul de folosire a controlului CommonDialog) . 

în Visual Basic, pentru a beneficia de un dialog de acest gen, trebuie să includem în proiect (prin 


comanda Proj ect |Components. . .)un control de tip Microsoft Corrunon Dialog 
Control (COMDLG32.0CX). Este ceea ce am realizat în aplicaţia a cărei interfaţă o prezentăm în 
figura 16.1. 


Obiectul Corrtmon Dialog (l-am numit cdbl) a fost personalizat prin setarea câtorva 
dintre proprietăţile sale, şi anume: 
y DialogTitle: ,,Deschide’’, 
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Filter: combinaţii de descrieri ale tipului şi extensii pentru fişier, care vor determina afişarea 
numai a fişierelor specificate (aici, „ Fişiere text txt). separatorul este caracterul pipe (|). Dacă acestei 
proprietăţi i se atribuie o valoare dinamică, prin cod, se va folosi CHR (124) ca separator. NU se vor 
include spaţii; 
> InitDir: directorul afişat ca punct de plecare în dialogul de deschidere a fişierelor (aici este 
C. D; 


” DefaultExt: extensia care vrem să apară ca şi extensie implicită (aici, . txt). 


jcdgl ComrnonDiâ'og 


E E 


A pene ea ies Alphabetic ] Categorized } 
Yara el 
(Custom) 
(Name) cdgl 
CsncelE'ror False 
Color m &HOOOOOOGG& 
CoDtes Îi rinite 
DefaultExt 


DialogTitle Deschide 


Filter Fişiere text]*.txt............. 
Filter Index 0 
Flags | e AEA 
FontDeld False 
qraloy de Fontitak False 
FontName 
FontSze 8 


FontStnkeThru False 
Fort underline False 
FromPage 0 
HcpCommand () 
HelpContext 0 


HelpFile 

helpKey ij 
Index 

IntDir c'if 
Left 9... 
Max :0" 


II 


(General) 


Private Sub Corranandl_Clic)c() 
cdgl.ShowOpen * *.le.s.:thide 
afireaza nuroelfc fişierului ales 
HsgBox "Ati aies fişierul "6 _ 

cdgl. Fi ieNanie 


Figura 16.1. Folosirea unui dialog intr-o aplicatie Visual Basic 


Controlul Common Dialog este invizibil la«executie. Afişarea propriu-zisă a ferestrei (modale a) 


dialogului se face programatic, prin invocarea uneia dintre metodele: ShowOp Rie acGRGQHGAMGne of a selected fie. 


ShowPrinter, ShowColor, ShowFont, ShowHelp (vezi procedura Commandl Click () din 
figura 16.2). 

După alegerea eventuală a căii şi alegerea ori introducerea manuală a numelui fişierului, urmată de clic pe 
butoanele Open ori Save, după caz, în proprietatea FileName a obiectului Common Dialog vom avea 
numele complet (disc, cale, fişier) al fişierului de deschis sau de salvat. 
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Look in: 


I System (C:) 
__J Acroread Kitnt kJ 
„.1 Multimedia Files Recycler 
My Installations LJ T emp 


Profiles_old LII 
Program Files win32app 
LJ 
File came: j D ePr ubAlinat 
DeProbalM 
Cancel 


Files ol type: Fişiere idk DeProba2.txt 


r Open as iead-only 


Figura 16.2. Dialogul FileOpen în faza de execuţie a aplicaţiei 
EI EI 


DeProbal 
_ ACROREAD txt 


+ iM ltimec ia Jia 
Files s my 
nstallatORS 
Profiles_old j 
Program Files. - 
UTEMP | 


win32app bhsare Dialog 
Deschid 


[a] 


Disc: 
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Controale intrinsece pentru acces la fişiere 

Pentru cazurile în care dialogurile standard FileOpen şi FileSave oferă un nivel insuficient de 

flexibilitate, Visual Basic dispune de trei controale pentru lucrul cu fişiere: DriveListBox (lista 

unităților de disc disponibile în sistem ), DirListBox (lista (sub)directoarelor dintr-un director 

anume) şi FileListBox (lista fişierelor dintr-un director anume). Cele trei controale se pot 

combina astfel: 

> la proiectare, pentru controlul de tip FileListBox se poate stabili o mască de afişare a 
fişierelor, prin proprietatea Pattern (asemănătoare cu Filter de la controlul de tip 
CommonDiaiog) ; 

> la execuţie, proprietatea Path a controlului DirListBox se sincronizează cu proprietatea 
Drive a controlului de tip DriveListBox, iar proprietatea Path a controlului de tip 
FileListBox, cuproprietatea Path acontrolului DirListBox; 

> la executia, numele si extensia fisierului ales din controlul de tip FileListBox se obtine prin 
consultarea proprietăţii Fi le Name. 
Pentru a obţine acelaşi rezultat ca la folosirea controlului de tip CommonDiaiog sus (respectiv 
alegerea unui fişier existent în scopul deschiderii lui ulterioare), se vor proiecta form-urile din 
figura 16.3; 

> proceduri din form-ul f rmCommonDialog: 

Private Sub cmdlansDial Click() 


frmFileOpen. Show Modal:=1 'se precizeaza numai argumentul Modal 
‘din mai multe argumente opționale 


End Sub 

> proceduri din form-ul frmFileOpen: 

Private Sub Drivel Change () 

Dirl.Path = Drivel.Driv 

End Sub 

Private Sub Dirl Change(} 

Filei.Path = Dirl.Path 

End Sub 

Private Sub cmdOpen Click() 

MsgBox "Ati ales fisierul " & Filei.FileName 

End Sub 

Private Sub cmdCancel Click() 

Unload Me 

End Sub 

în faza de execuţie, interfaţa aplicaţiei va arăta ca in figura 16.4. 

Observaţie: Butonul de comandă inscripţionat „Lansare Dialog” are un rol demonstrativ. în 
locul lui, într-o aplicaţie „reală”, dialogul de deschidere al fişierelor ar trebui ataşat unei opțiuni 
dintr-un meniu. 


Deschiderea fişierelor 
încă de la primele versiuni BASIC există instrucțiunea Open prin care se deschide un fişier de pe 
disc. Pentru a putea scrie sau citi date din fişier, este necesară mai întâi deschiderea fişierului. 
Formatul instrucţiunii de deschidere este: 
Open <NumeFisier> [For <mod>] [Access <tipAcces>] As 
[#]<NrFisier> în care: 
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parametrul <NumeFisier> indică numele fişierului. Dacă nu se găseşte în directorul curent, 
trebuie specificată calea. Se poate utiliza funcţia Cur Di r () care retumează numele 
directorului curent sub forma unui şir de caractere; parametrul <mod> indică scopul 
deschiderii fişierului: creare, citire sau actualizare, scop în care se utilizează un cuvânt-cheie 


adecvat (vezi tabelul 16.1), parametrul Access <tipAcces> arată tipul de acces solicitat, în caz că 
deschiderea are loc în mod Random; poate avea una dintre valorile din tabelul 16.2; 
clauza As specifică prin <NrFisier> (un număr întreg cu valori între 1 şi 511) numărul care este 


atribuit 


fişierului! şi care va utilizat în cadrul programului ca identificator pentru fişierul respectiv (nu 


se foloseşte numele), într-o aplicaţie care deschide simultan mai multe fişiere, primul număr de fişier 
disponibil poate fi aflat cu funcţia FreeFile (). 


m 
Lansate JDialog 
o .MM 
I —'c [Syctem] 
zl 
ub  cindLlansDial CJ 
en.Show (Hodal = 
DePioba1.txt 
_| ACROREAD LJ EESE3EHSS 
KITNT _1 
Mullimedia Files ! 
SISSSSSIF "1 My Installations 
;_] Profiles_old tii 
Piogiam Files |Piojecti | 
A QjTEMP L::1 
ub Drivel_Change win32app Ati ales fişierul DeProba2.txt Deschide 
Path = Drivel.Dc: LJWINNT 
OK Anuleaza 


ub Dit:1 Change (J 


Figura 16.4. Dialogul de deschidere a fisierelor in faza de executie a aplicatiei Tabelul 16.1. 


Valorile optiunii <mod> 


<mod> Descriere 

Append  Fisierul este deschis pentru adăugare (se poate utiliza numai pentru fişierele dejal 
create). 

Input Fişierul se deschide pentru citire (preluarea datelor din fişier). 

Output  [Fişierul se deschide pentru scriere. Atenfie! Dacă fişierul există, nu se adaugă 
datele noi ia sfârşitul fişierului (ca în modul Append), ci se suprascrie fişierul. 

Binary  |Utilizată pentru deschiderea de fişiere binare. 

Random tilizată pentru lucrul cu fişiere cu acces direct. 


1. Expresia consacrată este file handler, dar Visual Basic foloseste sintagma/;/e number. 
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Tabelul 16.2. Valorile opțiunii <tipAcces> 


<mod> Descriere 
Read Fişierul este deschis doar pentru citire. 
Write Fişierul se deschide pentru scriere. 
ReadWrite Fişierul se deschide pentru citire/scriere. 


Observaţie: toate operaţiile exemplificate mai jos se referă la fişiere text (ASCI), cu mod de 
organizare secvențial. 
Intr-un program se pot deschide simultan mai multe fişiere, prin mai multe comenzi 
Open. Numărul asociat prin comanda Open trebuie să fie unic. 
Exemple: 
"deschide pentru creare 
Open "d:\date\salarii.dat" For Output As #1 
"deschide pentru citire 


Open "d:\date\date sal.dat" For Input As #2 


inchiderea fisierelor 

După execuţia diferitelor operaţiilor de citire/scriere, fişierele trebuie închise pentru a termina 
normal aplicaţia. Se foloseşte in acest scop instrucţiunea Close, cu următorul format: Close 
[{#]<NrFisier>] [, [#]<NrFisier>] 

Instrucţiunea va închide unul sau mai multe fişiere, specificate prin numărul asociat la 
deschidere. Pentru a închide toate fişierele deschise la un moment dat, se utilizează Close 
fară niciun argument. 


Scrierea datelor în fişiere 
Se face cu ajutorul instrucţiunii Write, scriind într-un fişier care trebuie să fi fost deschis în 
prealabil în modul Append sau Output. Formatul este: 
Write # <NrFisier> [,<listd-expresii>] 
Parametrul <NrFisier> este numărul asociat fişierului la deschidere, iar <listă- 
expresii> specifică datele care se vor scrie în fişier (dacă este omisă, în fişier se va scrie o linie 
goală). La specificarea datelor se au în vedere următoarele: 
> mai multe valori se scriu în listă separate prin virgulă; 
> textele (şiruri de caractere) se scriu între ghilimele; 
> data şiora trebuie specificate în următorul format: 
#yyyy-mm-dd hh:mm:ss# 
> valorile logice trebuie specificate in următorul format: 
#True# 
+ False # 
Spre exemplu, instructiuneaWrite #2, strNume, blnStudent, dteDataNast, 
strLocalitate serie o linie in fişierul deschis cu numărul 2. Linia scrisă în fişier ar putea arăta 
aşa: "Popa Daniel", #True#, #2/10/1981#,"Iasi" 
O linie dintr-un fişier de date se numeşte articol sau înregistrare. 
La sfârşitul fiecărei linii scrise este un retur de car <CR>+<LF>, astfel că o nouă instrucţiune 
Write va scrie un nou articol pe linia următoare. Dacă se doreşte ca scrierea să continue pe 
aceeaşi linie, se plasează la sfârşitul instrucţiunii Write caracterul ; (punct şi virgulă). 
Subrutina de mai jos realizează scrierea într-un fişier a datelor din trei variabile de tip listă: Nume 
(),Matricol ()şi Grupa (). Variabilele sunt transmise subrutinei dintr-o procedură apelanta, al 
cărei cod nu este prezentat aici. 
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Private Sub Scrie (Nume As String, Matricol() As 

String, Grupa () As Integer) 
' presupunând ca avem Option Explicit, definim: 
Dim intNr As Integer ' pentru controlul buclei FOR...NEXT 
Dim intMax As Integer 
intMax = UBound (Nume) 'aflam numărul de valori din listă 
(in acest caz numărul de valori este identic pentru ! 
toate variabilele listă) 
Open "d:\studenti.dat" For Output As #1 'deschidem 
fisierul For intNr = 1 To intMax 'parcurgem listele lini 
cu linie, 
' scriind liniile respective in fişier 

Write #1, Nume(intNr), Matricol(intNr), Grupa (intNr) 
Next intNr 
Close #1 'inchidem fişierul End Sub 


Presupunând că în fişier am introdus 3 articole şi că este un fişier de tip text (in pofida extensiei . 
dat), elva arăta astfel: 

"Popa Jan", "98001", "1" 

"Ionescu Geta", "99003", "2" 

"Bond James", "007", SEN 

Se observă că numele fişierului (D: \studenti.dat) este precizat în interiorul procedurii 
(termenul de jargon este hard-coded- oferă simplitate, dar nu şi flexibilitate). întărim afirmaţia că, 
într-o aplicaţie „adevărată”, utilizatorul trebuie lăsat să precizeze el numele fişierului. O variabilă 
suplimentară, de tip String (de pildă strNumeFis) ar rezolva problema. Atribuirea unei valori 
acestei variabile s-ar putea face prin intermediul unui dialog de deschidere/salvare a fişierelor (vezi 
mai sus folosirea proprietăţii FileName). Observaţie: pentru scrierea în fişiere se poate folosi 
şi instrucțiunea Print #n, unde n este numărul atribuit fişierului prin comanda Open. Instrucţiunea 
Print realizează o scriere formatată (vom vedea cum se foloseşte această comandă pentru afişare 
într-un capitol următor), iar fiecare articol din fişier este considerat o singură variabilă de tip String 
(şi nu o listă de variabile separate prin virgule, ca la instrucţiunea write) . in plus, textele scrise 
în fişiere nu se mai încadrează în ghilimele. Utilizarea ei pentru a scrie în fişiere cu o anumită 
structură nu se recomandă, din cauză că la citirea ulterioară şirul de caractere preluat din fişier 
necesită manipulări destul de complicate pentru a-l separa în expresiile iniţiale, riscul de confuzie 
fiind mare. în schimb, o astfel de instrucţiune este foarte nimerită pentru crearea unor fişiere fară un 
format fix, aşa cum sunt cele create cu editoarele/procesoarele de texte. 


Citirea datelor din fişiere 
Se face prin instrucţiunea Input, care preia datele dintr-un fişier şi le atribuie unor variabile sau 
controale. Formatul este: 

Input #<NrFisier> [,<listd-expresii>] 

Argumentele au aceeaşi semnificaţie ca pentru instrucţiunea Write (considerată opusul lui 
Input). Sunt valabile şi precizările referitoare la specificarea tipurilor de date. Pornind de la 
exemplul de mai sus, pentru a citi un articol din fişierul studenti . dat se va scrie: 

Open "D:\studeriti.dat" For Input As 
#1 Input #1, Nume, Matricol, Grupa 
Close #1 

Pentru o citire corectă, articolul trebuie să aibă aceeaşi structură ca şi lista de variabile de dupa 

instrucţiunea Inputt. Fiecărei variabile i se va atribui valoarea aflată între două virgule. 
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Un fişier este alcătuit din mai multe articole, dar instrucțiunea Input citeşte un singur articol 
dintr-un fişier. Pentru a citi toate articolele din fişier, se plasează Input într-o structură repetitivă. 
Ieşirea din buclă se face atunci când s-a ajuns la sfârşitul fişierului, deci au fost citite toate. Pentru a 
testa sfârşitul de fişier se utilizează funcţia Eof (), care returnează valoarea True sau False, 
după caz. Formatul este: Eof (<NrFisier>). Citirea tuturor articolelor din fişierul studenti 
dat se va face deci astfel: 

Open "d: studenti.dat" For Input As 

#1 intNrArt = 1 Do Until 
(Eof (1)=True) 

Input #1, Nume(intNrArt), Matricol(intNrArt), Grupa(intNrArt) 

intArt = intArt + 1 Loop 

Close #1 

Indiferent daca in fişier sunt 0, 10, 100 sau 1000 de articole, ele vor fi citite toate. S-a utilizat o 
variabilă contor pentru a număra articofele citite (intNrArt), care permite atribuirea valorilor 
citite unor elemente din variabile de tip listă. 

Observaţie: citirea fişierelor în Visual Basic se poate efectua şi cu instrucţiunea 

Linelnput#, considerată perechea comenzii Print#. Spre deosebire de Input#, 

instrucțiunea Linelnput creează o singură variabilă de tip String, în care introduce câte o 

porţiune de text terminată cu combinaţia <CR>+<LF> (corespunde unui Enter într-un text 

obişnuit), adică CHR (13) +CHR (10). Această combinaţie este ignorată, nu este copiată în 
variabila respectivă. De aceea, pentru a recompune un text exact în forma 


în care a fost memorat, la fiecare linie citită cu Linelnput seva concatena 
combinaţia Chr (13)+Chr (10) sau constanta predefinită vbCrLf. După cum spuneam, 
instrucţiunea Linelnput se recomandă pentru citirea fişierelor create cu Print#. 


întrebări şi exerciţii 


1. Adevărat sau fals? Fişierele de date se mai numesc fişiere ASCII. 

2. Adevărat sau fals? Obiectul de tip Common Dialog Box nu este un control intrinsec. 

3. Care sunt controalele intrinsece utilizate pentru lucrul cu fişiere? 

4. Prin care valoare a parametrului <mod> se indică deschiderea unui fişier pentru citirea 
datelor? 


5. Care este diferenţa dintre modurile de deschidere a fişierelor Append siOutput? 

6. Cum se identifică într-un program un fişier deschis pentru citire? 

7. Adevărat sau fals? într-un program Basic poate exista la un moment dat un singur fişier deschis. 
8 


Adevărat sau fals? Scrierea unui articol într-un fişier secvențial cu instrucţiunea Write 
cere ca toate datele scrise să fie de tip şir de caractere. 

9. Explicati de ce este necesar ca instrucțiunea Input# să fie plasată într-o structură 
repetitivă. 


Capitolul 17 FACILITAT! PENTRU LUCRUL CU 
BAZE DE DATE 


Probabil că veţi lucra rar cu fişiere de date- doar în cazul unor fişiere mici, simple, care 
memorează texte. Pentru a utiliza în aplicaţii fişiere binare, care de obicei nu sunt organizate 
secvențial, ci în mod indexat ori cu acces direct sau indexat-secvential, e nevoie de stăpânirea 
noţiunilor legate de tipurile de date, de modul de memorare pe disc, de multă răbdare şi 
conştiinciozitate. 
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Datele dintr-o organizaţie nu mai sunt de mult organizate în fişiere simple (flat files). Organizarea 
în baze de date este preferată peste tot acolo unde se lucrează cu colecţii mari de date - cu precădere în 
domeniul afacerilor. 

O bază de dale reprezintă o colecţie de date aflate in interdependenţă. Ele sunt memorate 
împreună cu descrierea lor şi a legăturilor dintre ele. Din punct de vedere fizic, aceasta poate implica 
existenţa unuia sau mai multor fişiere, dar aplicaţiile pentru baze de date se servesc de un nivel de 
abstractizare numit nivel conceptual (ori mai simplu schema), lăsând în seama ,,motorului” bazei de 
date (Database Engine) regăsirea, respectiv stocarea datelor. Astfel, utilizatorul unei baze de date nu 
trebuie să se preocupe de înţelegerea unor mecanisme prea tehniciste. 

Visual Basic permite crearea de aplicaţii care lucrează cu baze de date relationale. O bază de date 
relationala (pe scurt BDR) este organizată ca o colecţie de tabele aflate în legătură. Fiecare tabelă 
descrie o entitate din lumea reală, sub aspectul atributelor care interesează a fi memorate”. O bază de 
date este creată şi întreţinută printr-un sistem de gestiune a bazelor de date (SGBD). Baza de date 
recomandată de către Microsoft pentru aplicaţii Visual Basic este baza de date Access (cunoscută şi 
ca Microsoft Jet), dar prin intermediul obiectelor din categoria DAO (Data Access Objects) Visual 
Basic permite accesul şi la următoarele categorii de baze de date: 
> ISAM (Index Sequential Access Method): dBase, FoxPro, Paradox; 
> baze de date conectate prin ODBC (Open DataBase Connectivity, un standard creat de 

Microsoft): Oracle, SQL Server; 
> foi de calcul: Lotus şi Excel; 
> texte (fişiere ASCII). 

Visual Basic are incorporate facilităţi de SGBD, a căror complexitate depinde de varianta utilizată 
(Standard, Professional, Enterprise). De altfel, Visual Basic este de multă vreme un instrument 
preferat de dezvoltatorii de aplicatii cu baze de date relationale. 

De exemplu, add-in-ul Visual Data Manager, disponibil chiar şi in versiunea Standard, permite 
crearea unei baze de date relationale fara a scrie vreo linie de cod. De asemenea, 


7 Firma are interesul să memoreze următoarele date ale salariatului: data naşterii, studiile efectuate, data angajării, postul ocupat etc., dar 
este sigur mai puţin interesată de numele copiilor angajatului ori de culoarea preferată a acestuia. 
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include facilităţi de populare a bazei de date prin crearea rapidă a unor form-uri legate la tabelele 
acesteia. 

Varianta Enterprise este cea mai flexibilă. Cu editorul SQL? încorporat se pot extrage ad-hoc 
date din baze de date relationale şi se pot crea chiar declansatoare şi proceduri stocate pentru baze de 
date relationale. 

Visual Basic tratează tabelele din bazele de date conform canoanelor relationale: fiecare linie 
reprezintă o înregistrare (tuplu), iar fiecare coloană un câmp (atribut). Prin interfeţe adecvate, 
grupurile de căsuțe organizate ca şi baze de date în foile de calcul Lotus 1 -2-3 sau Excel pot fi 
interpretate ca şi tabele relationale. 

Motorul de baze de date Jet (care este propriu SGBD Access) mai are o particularitate deloc de 
neglijat pentru lucrul în medii eterogene: poate efectua jonctiuni ale unor tabele din baze de date 
diferite, de formate diverse (tabelă Access cu fişier ASCII, de exemplu). 

La nivelul dezvoltării aplicaţiilor, facilităţile pentru baze de date adaugă la simplitatea în utilizare 
a mediului Visual Basic o paradigmă de acces la date orientată-obiect, prin ierarhia de clase 
Database (abstractizare a unei baze de date), Recordset (în termeni grosieri, abstractizare a 
unei tabele), Field (abstractizare a unui câmp). De asemenea, există interfeţe pentru baze de date 
sub forma controalelor „legate la date” (data-aware ori bound Controls). 

Despre aplicaţiile cu baze de date in Visual Basic s-ar putea scrie (şi chiar s-au scris) cărţi întregi. 
Capitolul de faţă este o încercare (e drept, modestă) de a deschide apetitul utilizatorului către astfel de 
aplicaţii. 


Accesul Ia baze de date prin intermediul controlului intrinsec Data 
Acest control permite accesul la datele dintr-o tabelă sau dintr-un view? care au fost deja create. în 
acest scop, trebuie localizată baza de date şi indicate tabela ori view-ul din care se preiau date. 


8 SQL (Structured Query Language) este un limbaj cu valoare de standard, destinat interogării şi gestionării bazelor de date 
relationale. 

9 Termenul view desemnează o tabelă virtuală (sau derivată). Aceasta nu există ca atare, dar în baza de date este memorată descrierea ei. 
Această descriere precizează că datele view-ului provin dintr-o porţiune a unei tabele, din mai multe tabele ori din mai multe porţiuni ale 


mai multor tabele - de unde şi sintagma „derivată”. 


iii. Edituri specializate in informatica (SUA) Misa Basic T 


m Numele ediU Alphabetic [CViegoNzed 
[Si | 
o Data 
BOFAction 0 - Move First 
Orașul: Connect Access 


E:\Prograrn Files\Microsoft Visual Studio\VB98\Biblio.mdb 


iDefaultCursorType 0 - DefaultCursor 


Telefon:- Default Type 2 - UseJet 
m r EOFAction 0- Move 
AI Exclusive Last False 
a Options Io 
|H i 4|Edituri " ReadOnly False 
RecordsetType 1- Dynaset 
RecordSource Publishers 
a Font Font 
a Mise (Name) MS Sans serif 


controlul Data 
itrol 


Figura 17.1. Utilizarea controlului Data pentru acces la o tabelă dintr-o BDR 
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Baza de date este specificată prin proprietatea DatabaseName (în cazul de fata, baza de date 
Biblio.mdb, din directorul-gazda al Visual Basic), iar tabela prin proprietatea RecordSource 
(în acest caz, tabela Publishers)10. Tipul bazei de date este specificat prin proprietatea 
Connect (aici este vorba despre o bază de date Access) . 

In figura 17.1 se observă prezenţa pe form a unor controale cunoscute: etichete şi casete de text, 
acestea din urmă utilizate pentru afişarea câmpurilor din tabela ataşată controlului Data. Rolul 
controlului Data nu este de afişare a datelor dintr-o tabelă, ci de facilitare a accesului la acestea şi 
de navigare prin înregistrările tabelei. Controlul Data funcţionează în ambele sensuri: (1) permite 
citirea datelor dintr-o tabelă şi (2) permite scrierea de date într-o tabelă. Dacă utilizatorul realizează 
modificări ale datelor, controlul Data asigură actualizarea bazei de date. 

Casetele de text sunt legate de controlul Data. Proprietatea Locked este False, deci 
utilizatorul poate modifica datele şi în acest caz modificarea se va transmite în mod tacit în baza de 
date. Pentru a împiedica modificarea unor câmpuri, cea mai simplă cale este de a da valoarea True 


proprietății Locked a casetelor de text corespunzătoare (există şi variabila Enabled=False, dar 
efectul obţinut nu este tocmai estetic). 

Aplicația prezentată este extrem de simplu de realizat. Nu este definită nici măcar o linie de cod. 
Accesul şi actualizarea bazei de date se realizează prin simpla proiectare a form-ului, a controalelor şi 
legarea lor la baza de date. Dacă ar trebui ca aplicaţia să permită adăugarea sau ştergerea de 
înregistrări, ar fi necesare secvenţe de cod concepute în acest scop. 

Particularităţi la definirea aplicaţiei: 

se definesc mai întâi etichetele, în mod obişnuit; 

se defineşte controlul Data, plasându-l în partea de jos a form-ului!!, specificând numele 


datEdituri şi „Edituri” laCaption; 

> pentru a lega controlul de o tabelă din baza de date, se defineşte proprietatea DatabaseName: 
se execută clic pe butonul cu [...] pentru a selecta baza de date biblio.mdb; se specifică apoi 
tabela din care se preiau datele: la proprietatea RecordSource se selectează din listă tabela 
Publishers (evident, cel care proiectează aplicaţia trebuie să ştie exact care este structura BD 
biblio .mdb, deci în care tabelă sunt datele necesare aplicaţiei); 

> se defineşte prima casetă de text, pentru afişarea numelui editurii; după proprietăţile obişnuite 
(Height, Width, Font etc.) se defineşte proprietatea DataSource, care indică sursa 


de date — în cazul de faţă este controlul datEdituri, care intermediază legătura cu baza de 
date (se selectează din listă); trebuie apoi indicat câmpul ale cărui valori se vor afişa, prin 
proprietatea DataField - există şi aici o listă ascunsă în care se vor afişa toate câmpurile din 
tabela specificată (Publishers); se va selecta câmpul Company Name; 

> în mod similar se va proceda cu celelalte trei casete de text: pentru toate se va defini valoarea 


proprietății DataSource (datEdituri) şi valoarea proprietăţii DataField (în ordine: 

City, State, respectiv Telephone) . 

La execuţia aplicaţiei folosiţi pentru afişarea succesivă a înregistrărilor butoanele controlului 
Data: prima înregistrare |«, precedenta înregistrare « (în partea stângă) şi următoarea înregistrare », 
ultima înregistrare »| (în dreapta controlului). La mijlocul controlului se afişează valoarea proprietăţii 
Caption. 

Acestea sunt proprietăţile strict necesare în lucrul cu controlul Data. El dispune de proprietăţi 
mai puternice şi de metode specifice, care permit şi operaţiuni complexe asupra tabelelor din bazele 


10 Dacă la instalarea produsului Visual Basic nu ati selectat opţiunea VB Product Samples, este posibil ca 
această bază de date să lipsească de pe sistemul dumneavoastră. 
11 Controlul Data are o proprietate Align care se comportă exact ca la controalele Toolbar sau PictureBox. 
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de date. 


Field Name 1 Data Type 


3 PubID AutoNumber 
Name Text 


T | Company Name Text Address Text 


Zip 
[Telephone Text 
Fax Text 


[Comments............ee eee Merno 


Figura 17.2. Structura tabelei Publishers folosită în exemplul de faţă 
La execuţia programului, controlul Data regăseşte datele din tabela specificată şi creează un 
obiect de tip Recordset (set de înregistrări). Câmpurile acestuia pot fi accesate şi prin cod, în 


maniera: 
<numeControlData>.Recordset! [<numecâmp>] 
De exemplu: 
MsgBox datEdituri.Recordset! [City] 


va afişa conţinutul câmpului City de pe înregistrarea curentă. 
Acelaşi lucru îl face şi: 


MsgBox datEdituri . Recordset. Fields ( 4 ) . Value - după cum se 
observă în figura 17.2, City este al cincilea câmp din tabelă, dar numerotarea câmpurilor începe cu 
zero. 

Observatie', m acest caz, parantezele pătrate nu înseamnă construcţii opţionale, ci 
încadrează numele unui câmp. Ele sunt absolut necesare dacă numele câmpului conţine spaţii 
(de exemplu: Company Name), lucru permis în bazele de date Jet (Access). Spre 
deosebire de notația clasică din bazele de date: nume- 
tabelă. nume-câmp, la accesarea bazelor de date cu Visual Basic rolul de 
separator este deţinut de semnul de exclamare. 

Pentru manipularea înregistrărilor, obiectul Recordset dispune de metodele: 
> AddNew - setul de înregistrări intră în regimul de adăugare a înregistrărilor; 


> Edit - setul de înregistrări intră în regimul de modificare a valorilor unor câmpuri; 
Delete - şterge înregistrarea curentă; 
Update - realizează efectiv adăugarea *3ii modificarea; 
MoveFirst, MovePrevious, MoveNext, MoveLast, Move (n) -deplasarea 
printre înregistrările obiectului. în cazul metodei Move, n este numărul de înregistrări 
cu care se doreşte înaintarea/revenirea. 
Pentru ilustrarea acestor metode s-a realizat form-ul din figura 17.3. 
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fei. Edituri specializate in infoimatica (S 
J J g N 


‘| Numele editurii: 


ri 0 ia 
azi Auây-ui de ` `` ` 


PSR ISI rs Ta a ac RI A A E A as 
. g 
A Tea GOE R Eo ERR e Pe PPE 
ar pre : aaa, Adauga 
Auay-ul de butoane cemdNavigaie = 7 i : ect =e Sterge 


a S E ne et 


De aceasta dată proprietății Visible rontroluluddhtEdïturi i s-a dat valoarea True 


(invizibil la execuţie), așa că nu ne mai putem servi de propriile sale facilități de deplasare. In locul lor 


am definit un grup (control array) de patru butoane (cmdNavigare) . De asemenea, sunt două 
butoane de adăugare, respectiv ştergere a înregistrărilor. Codul aferent obiectelor din acest form este 
prezentat mai jos: 
Private Sub cmdAdSterg Click(Index As Integer) 
"adaugare sau 
sterger Select 
Case Index Case 0 
datEdituri.Recordset.AddNew 
txtNumeEd.SetFocus Case 1 
datSdituri.Recordset.Delete End Select End Sub 


Private Sub cmdNavigare Click(Index As 
Integer) 
"cele patru butoane de navigare Select Case Index 
Case 0 


datSdituri.Recordset.MoveFirst 
Case 1 


datEdituri.Recordset.MovePrevious Ca se 2 
datEdituri.Recordset.MoveNext Case 3 
datEdituri.Recordset.MoveLast End Select End Sub 
Private Sub cmdExit Click () 
"butonul de ieşire Unload Me End Sub 
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Utilitarul Data Form Wizard 
Este un instrument conceput pentru a asista proiectarea unui form care va accesa o tabelă dintr-o bază 
de date. Pe baza opţiunilor proiectantului, wizard-u\ construieşte form-ul, plasând etichete şi casete de 
text pentru fiecare câmp solicitat, ca şi controlul Data pentru interfaţa cu tabela şi pentru deplasare de 
la o înregistrare la alta. Wizard-ul analizează baza de date indicată şi afişează structura acesteia, 
pentru ca proiectantul să selecteze câmpurile dorite. 
Data Form Wizard face parte din categoria aplicaţiilor add-in (aplicaţii care extind capacităţile 
unui mediu de dezvoltare). Lansarea lui se face prin comanda Add- Ins | Data Form Wizard, care 
afişează caseta de dialog din figura 17.4. 
Observaţie: după instalarea Visual Basic, meniul Add-Ins nu conţine decât două 
opţiuni: Visual Data Manager şi Add-In Manager. Dacă în acest meniu nu avem 
opţiunea Data Form Wizard, vom proceda astfel: 
> alegem Add-In Manager, 
> în lista de Add-in-uri (vezi figura 17.3), căutăm Data Form Wizard. Dacă nu există, avem de-a 
face cu o instalare minimală a Visual Basic. Se va avea în vedere o reluare a instalării, pentru 
a aduce şi instrumentele Add-iir, 

> activăm opţiunea Load on Startup, executăm clic pe OK, salvăm eventual proiectul deschis şi 
repomim Visual Basic. Acum meniul Add-Ins ar trebui să conţină opţiunea Data Form 
Wizard. 


Add-In Manager 


Available Add-Ins. j Load Behavior 


Source Code Control Staftup / Loaded 
VB 6 ActiveX Ctrl Interface Wizard VB 6 

ActiveX Doc Migration Wizard VB 6 Add-In 

Toolbar VB 6 API Viewer VB 6 Application 

Wizard VB G Class Builder Utility 

VB 8 Data Form Wizard Startup / Loaded 
VB 6 Data Object Wizard VB 6 Property 

Page Wizafd VB.6 Resource Editor VB 6 

Template Manager 


Description Load Behavior 
Visual Basic 6 Data Form Wizard f 
VW Loaded/Unloaded 


N ‘Coad 


>] | 5 pens Coe 


Figura 17.4. Fereastra Add-in Manager 
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ntroduction =<. 


The Data Form Wizard will help you create a Form with objects 
bound to a local or remote data source. 


From what profile do you want to load your settings? 


J- 


Figura 17.5. Data Form wizard: ecranul introductiv 
Data Form Wizard poate memora preferințele utilizatorului (tipul bazei de date, numele bazei de date 
etc.) sub forma unui profil utilizator'. După alegerea unui profil utilizator (în cazul de față nici unul, adică 


none), se va da clic pe butonul Next, pentru a trece la ecranul 
următor (vezi figura 17.6). A 


Observaţie: profilul, respectiv ecranul din figura 17.5, nu există în versiunile mai vechi ale Visual 
Basic. în astfel de cazuri wizard-ul afişează direct ecranul din figura 17.6. 


& Data Form Wizard - Database Type 
Select a database format from the ist. 


Figura 17.6. Data Form Wizard: alegerea tipului de bază de 
date dorită 


1. în mod similar cu Application Wizard. 
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La pasul 3 se solicită numele bazei de date. Folosind butonul Browse, navigăm până la baza de date 
Biblio.mdb, despre care am discutat anterior. Faza a patra ne va solicita numele form-ului (Atenţie, 
fără prefixul frm, fără extensie - acestea se vor atribui automat!), aspectul lui (Form Layout: Single 
Record, Grid etc.) şi modul de acces la date (Binding Type: prin control Data sau direct prin 
instrucţiuni ADO!) , ca în figura 17.7. 


É Data Form Wizard - Form 


Select the desired form type and a data binding type to 
use to access the data, 


What name do you want for the farm? 


Edituri3 


Form Layout 
fari DR 
[Grid (Datasheet) © ADO Data Control 
|Master/Detail 

MS HFie xGrid ADO Code 

MS Chart 


Er Class 


| 


i i 
tie | cant | coe [e] | 


Figura 17.7. Data Form wizard: alegerea numelui si aspectului 
pentru form 


Urmează alegerea tabelei sau view-ului utilizat de form (Record Source), selecţia câmpurilor 
din view/tabelă apoi alegerea butoanelor, dintr-un set predefinit de butoane de adăugare, ştergere, 
modificare de înregistrări. Ultimul pas permite salvarea preferințelor utilizatorului într-un profil disponibil 
la următoarea lansare a utilitarului (pentru a evita reintroducerea numelui bazei de date etc.). Totodată, 
form-ul este salvat pe disc şi adăugat în proiect. Rezultatul este ilustrat în figura 17.8. 


ù, Publishers 


Company Name; [Addison-Wesley Publishing Co Inc 
City. [R eading 


State: MA, 


Telephone: fer 7-944-3700 


Add cs Delete Refresh 
KIKI Record: 16 


Figura 17.8. Form-ul la momentul execuției 


1, Acestea corespund motorului bazei de date Jet. 
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Astfel se creează un form cu mult mai puţin efort decât în varianta manuală. O vom prefera pe 
aceasta din urmă în caz că dorim un form mai sofisticat, dar la fel de bine putem edita form-ul creat 
de wizard, în scopul îmbunătăţirii lui. 


Crearea unei baze de date cu utilitarul Visual Data Manager 
Acesta este un program de tip add-in care permite crearea în mod asistat a unei baze de date 
relationale. Există în versiunile Visual Basic 5 şi 6. Baza de date poate fi de unul dintre tipurile 
precizate la începutul capitolului, dar formatul implicit este Access. Pe suportul de memorare, aceasta 
se prezintă ca un fişier cu extensia .mdb. 

Lansarea utilitarului se face prin opţiunea Add-Ins IVisual Data Manager. 

Pentru a crea o nouă bază de date, alegem File ] New DataBase | Microsoft 
Access | Vers ion 7.0 MDB. După ce navigăm în directorul dorit şi alegem un nume 
pentru fişierul . mdb, vom avea pe ecran două ferestre: Database Window (oferă o afişare ierarhică 
a obiectelor din baza de date) şi SOL statement (permite redactarea unor fraze SQL şi chiar salvarea 
lor în baza de date curentă sub forma unor definiţii de view-uri - QueryDef). Pentru început, un clic 
dreapta în fereastra Database Window permite alegerea uneia dintre opţiunile New Table sau New 
Query. Alegând New Table, vom avea o fereastră asemănătoare celei din figura 17.9. 


me Leita 


Window Help 


Table Name: 


Field List: 
codel 


nrfact 
datafact 


OrdinalPositioni 


valdationText: 


| 


ValidationRute: 


o 


DefaultValue: 


isual Data Manager 
Câmpurile tabelei se adaugă unul câte unul în fereastra Add Field. La terminarea structurii, cu 
butonul inscripţionat Build the Table se generează structura tabelei. Indecşii se pot adăuga prin 
butonul Add Index. Modificarea structurii unei tabele deja create se face 
plin clic-dreapta pe numele tabelei, urmat de alegerea opțiunii Design din meniul contextual. 
Observaţie: nu este posibilă modificarea tipului de dată (proprietatea type) pentru un atribut 
(coloană). Se poate însă redenumi coloana, se poate crea una nouă cu tipul de dată dorit, popula cu 
valorile vechii coloane (eventual cu ajutorul unei conversii a tipului de dată), după care se poate şterge 
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vechea coloană. Opţiunea de redenumire a unui câmp se află de asemenea în meniul contextual al 


câmpului. 
Pentru a exemplifica lucrul cu o bază de date, vom porni de la următoarele elemente: 
> numele bazei de date este VINZARI; 
> „prima tabelă din baza de date se numeşte CLIENŢI _şi are următoarea structură: 
Nume câmp Semnificație Tip câmp Lungime Observaţii 
codcl codul clientului text 5 cheie primara 
dencl denumirea clientului text 24 
adresa adresa text 30 
codpost codul postal text 5 


Vom crea un index care va conţine atributul codcl şi se va numi Primary Key. 


> tabela FACTEM are următoarea structură: 
Nume câmp Semnificație Tip câmp Lungime Observaţii 
nrfact numărul facturii text 7 cheie primară 
codcl codul clientului text 5 cheie străină 
datafact data facturii date/time 
valoare valoare factură, inclusiv tva currency i 
valtva valoarea tva colectată currency - 


Vom crea un index! care se va numi Primary Key şi va conține atributul nrf act. 

într-o bază de date relațională, fiecare tabelă are o cheie primară (Primary> Key) ce reprezintă o 
coloană (sau o combinație de coloane) prin ale cărei (căror) valori se identifică fără ambiguitate fiecare linie 
a tabelei. Unele tabele au şi o cheie străină (Foreign Key) ce reprezintă o coloană care este cheie primară 
într-o altă tabelă. Valorile cheii străine dintr-o tabelă nu pot fi decât valori ale cheii primare din tabela 
corespondentă. Această regulă se numeşte restricție referențială. Majoritatea bazelor de date relationale 
contemporane implementează cheile primare şi străine prin indecşi. 

Cât despre cheia străină a tabelei FACTEM (care este codcl), aceasta şiimplicit 
restrictia referentiala pot fi create prin comanda SQL ALTER TABLE, astfel: 
ALTER TABLE FACTEM ADD CONSTRAINT FK FACTEM FOREIGN KEY (CODCL) 
REFERENCES CLIENŢI; 
Numele restrictiei (fk _factem) va deveni un index al tabelei FACTEM. Acesta va 


avea proprietatea Foreign=True. Pentru edificare prezentam figura 17.10. 

Dupa scrierea comenzii in fereastra SQL Statement, ea se va executa prin butonul corespunzator. La 
apariţia mesajului „Is this a SQL Pass-Through Query?” se va răspunde „No”. Daca se repetă clic-ul pe 
butonul Execute, este posibil să apară şi un mesaj de eroare de genul „Invalid operation”. Verificăm apoi 
dacă s-a creat restrictia prin clic-dreapta în fereastra Database Window, alegând Refresh List din 
meniul contextual. De fapt, cel mai bine este să încercăm introducerea unei facturi cu un cod de client 
inexistent. Motorul 


12 Astfel de interogări se folosesc în aplicaţiile client/server, de regulă în baze de date la care Visual Data 
Manager se conectează prin ODBC. Nu este cazul bazelor de date Access (ca VINZARI). 
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bazei de date Jet va emite un mesaj de eroare indicând încălcarea restrictiei referentiale (vezi figura 
17.11). 


L+i ES* Properties 
rlianti 


HI Fields j H! 1-/ Indexes 
1-fPrimaryKey i I^ Properties 


:-\1=1=1 ractem 
Q Fields B 1/ Indexes jt}- |-/ fkjactem |-/ Primary 
Key (Tf! Properties 


mm. 


Ce aio ni 


| | table facten add constraint fkjactem foreign key (codcl) _1J references clienti; 


J 


Figura 17.10. Instituirea unei restrictii referentiale 


Value (F4=Zoom) 
10210 


2) The following Error occurred: 
[4 


ou can't add or change a record because a related record is tequred in table ‘client’. 
Number: 3201 


Display the Data Access Errors Collection? 


Figura 17.11. Mesaj vizând încălcarea restrictiei referentiale 
Cum are loc însă popularea tabelelor? Utilizatorii avansati (sau oricine cunoaşte limbajul SQL) ar 
putea folosi comenzi INSERT INTO.. ., de tipul: 
INSERT INTO FACTEM VALUES (104, 5015, #10/01/2000#, 4850000, 
4850000*19/119); i 
în tabela FACTEM, câmpul codcl este de tip text, deci conform „canoanelor” SQL ar fi trebuit 
scris între apostrofuri. Din fericire, Visual Basic rezolvă tacit problema conversiei datelor. 
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Fără îndoială, folosirea comenzii INSERT pentru volume mari de date nu este o soluţie avantajoasă 


din punct de vedere al timpului. Din fericire, Visual Data Manager îşi merită denumirea, deoarece printr-un 
simplu clic-dreapta pe numele tabelei se poate activa opţiunea Open din meniul contextual. Cu aceasta 
ocazie, programul construieşte ad-hoc un form calchiat pe structura tabelei alese. Utilizatorul poate alege 
varianta cu înregistrări dispuse pe verticală (figura 17.12 sus) sau în formă tabelară (figura 17.12 jos). 


| ypdate 5 Hake Find j Refresh j Close 
Fieid Name : aiue: 
TOI 
Sa III III 
Add {Uniri 25 
jai? niisi 1*6600 ica Pease apoasă 
[codel 1 nrfact 1 dalafact — E E EEE 
#./103 [5011 19/28/0 -IEEE 90000 
102 15012  :3/29/00 11900 [399159.6 
im....... 19/30/0 | 80 rr 
103 J5014  [9/30/0 „— -25000 1255462.1 
104... ]505-.... jTo/i/o F589 00 349 
Figura A7425 “Moduri de prezeritaf® a înregis Ti tabele 


i de instrumente 


(notate cu 1,2, 3 solfizhra 17. 13). 


La actualizare se 


creează un set de 


înregistrări de tip 


Dynaset 

(actualizabil) 
La actualizare se j Se creează un set de 
lucrează cu'tabela de înregistrări de tip Snapsbot 
bază zei pi A(numai pentru consultare) 


1B e CSR oo 


Se foloseşte la actéalizarealu! Data 


Se foloseste controlul DBG 
tabelei 


Ja actualizarea tabelei ri 


Nu se foloseşte controlul Data la 


actualizarea tabelei 


Figura 17.13. Opţiuni privind actualizarea tabelelor 


In varianta de afişare tabelară, adăugarea de înregistrări se face scriind pe linia marcată cu asterisc. 
La mutarea pe altă linie, Visual Data Manager va cere confirmarea liniei noi ("Save new 
record?) . 
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Controale suplimentare pentru lucrul cu baze de date: DB List, 
DBCombo şi DBGrid 


Pe lângă folosirea controlului intrinsec Data, la care, după cum am văzut, se pot ataşa controale de 
tip Text ori Labei, Visual Basic oferă facilităţi avansate de lucru cu baze de date prin 
introducerea controalelor DBList, DBCombo şi DBGrid. Acestea sunt controale ActiveX! 
memorate în biblioteci (DBLIST32.0CX pentru DBList şi DBCombo, respectiv DBGRID32.0CX 
pentru controlul DBGrid) !. Literele DB vin de la „Data Bound”. In versiunea Visual Basic 6 au 
fost introduse controalele din categoria ADO (ActiveX Data Objects), respectiv DataList, 
DataCombo (MSDATLST.OCX) şi DataGrid (MSDATGRD.OCX). Acestea beneficiază de 
facilităţi sporite privind manipularea datelor, dar modul de lucru de bază este asemănător pentru 
ambele categorii de controale. în ambele cazuri este însă vorba de controale „data-aware” (legate la 
date). 

Modul de lucru cu controalele DBCombo şi DBGrid va fi exemplificat mai jos. în primul rând, 


aceste controale trebuie adăugate proiectului prin comanda Project] Components, ca în figura 
17.14. 


Controls Designeis] Insertable Obiects 


3] ..ssaTlini" 


| o Microsoft Common Dialog Control 6.0 (SP3) 
| Vj Microsoft Data Bound Grid Control 5.0 (SP8)| y J MI. 
icrosoft Data Bound List Controls’6 | 


-* mit? 


o Microsoft DataGrid Control 6.0 (6P4) (OLEDB)|i-", 
Mirrrv;nfr Datfll i<;t Enntrnk 6.0 (<iP3'i-(0l FDR'i 


T seiected Items Only 


4 w D:WINNT\System32\asctrls.ocx 


Cancel 


dăug in a ele ActiveX pentru baze de date 


asemănătoare celei on figura 17.15. Am numit respectivul form f rmOneToMany. 

Pe form au fost plasate două controale de tip Data (datClienti şi datFactem), pentru 
amândouă proprietatea Visible având valoarea False. Ambele sunt legate la baza de date 
VINZARI (vezi proprietatea DatabaseName) , creată anterior cu Visual Data Manager. 


!. ActiveX este o tehnologie a firmei Microsoft care printre altele facilitează schimbul de date între aplicaţii. 
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Figura 17.15. Form realizat cu DBCombo şi DBGrid 


Controlul datClienti reprezintă tabela CLIENŢI (vezi proprietatea Record Sourcej, 
iar controlul datFactem este legat de tabela FACTEM. Scopul urmărit aici a fost realizarea unei 
afişări de tip One-to-Many sau Master-Detail, în care să se regăsească toate facturile unui client pe 
care-l alegem în caseta combinată (dbcClienti) din partea superioară a form-ului. 

La trasarea lui pe form, controlul de tip DBGrid (numit de noi dbgFactem) prezintă o linie şi 
două coloane. Pentru afişarea datelor cu privire la facturi, asupra sa trebuie realizate următoarele 
operaţii: 

> stabilirea valorii datFactem pentru proprietatea DataSource (se va verifica valoarea 

proprietăţii DataMode, să fie 0 - Bound). Prin aceasta se precizează practic incidenţa 

oricărei operaţii din grilă asupra tabelei FACTEM, dar indirect, prin 

controlul datFactem; 

> stabilirea valorii "Facturi emise clientului " pentru proprietatea Caption; 
stabilirea valorii True pentru proprietățile AllowAddNew, Al lowDelete, 

AllowUpdate (în caz că se doreşte adăugarea, ştergerea, modificarea de înregistrări), stabilirea 

valorii True pentru proprietatea ColumnHeaders, dacă se doreşte afişarea descrierii câmpurilor 


din tabela corespunzătoare; 
stabilirea valorii 2 sau mai mare pentru proprietatea Headlines, daca descrierile câmpurilor 
sunt texte mai lungi şi se doreşte afişarea lor pe mai multe linii; stabilirea unei valori adecvate 
pentru proprietatea TabAction, care decide modul de navigare în interiorul grilei, astfel: 0 
înseamnă ca la apăsarea tastei TAB se părăseşte grila, | înseamnă că la apăsarea acestei taste se 
parcurg coloanele de la stânga la dreapta (se pot parcurge invers cu Shift + TAB), ieşindu- 


se din grilă după ultima 
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coloană, iar valoarea 2 nu permite ieşirea din grilă, TAB-ul având doar rolul de navigare. în toate 
cazurile navigarea poate avea loc şi cu tastele-sageti; 

> regăsirea automată a câmpurilor din structura tabelei legate, prin clic dreapta, urmat de alegerea 
opțiunii Retrieve Fields ... din meniul contextual. Cu opţiunea Clear Fields se 
poate renunţa la structura deja stabilită; 

> afişarea ferestrei PropertyPages, prin clic dreapta, urmat de alegerea opțiunii 
Properties... din meniul contextual. Se va afişa fereastra din figura 17.16. în partea 
dreaptă a figurii se observă cum se pot defini titluri specifice (Caption) şi cum se pot ataşa 
câmpuri din tabelă fiecărei coloane (ca şi la alte controale Visual Basic, numărătoarea coloanelor 
începe cu zero). Este vorba despre pagina Columns. in stânga figurii se arată cum se pot 
stabili o parte dintre proprietățile citate mai sus (s-a ales pagina General): 

AllowAddNew, Caption (pentru întreaga grilă), 

Headlines etc. 


Propey Pages 
General | Kayboaid | Cokenns | tapot | Coke | Fork | Solte | General | Keyboard Colutnns | Lnyet | Coke | Fort | Sons | 
| =f 
Captor [Facini emise ceruta Cole =] 
p DefColwitth: 0 Cagliari -~ [Codul c 

Alive cl ew: e PT es wa = 

Heed.res 2 DalaField [cos EEE ME 
AMowQelote F n < 
$ Allowiipdale F BowHeight 225.0709 Delay lue = =s ee 
| Cokmnéieaders 7 | Aapearance ae - JE SE oboi oma E] 


aig N odasye 1-FoedSinge > 
MaigueeUnique | 


RowDiyderSive: |2 -Dak gray ine v 


D staMode: 0- Bound x 


Cx] Cancei soy | Hep Cx] Cancel Apply Help 


Figura 17.16. Fereastra PropertyPages (se întâlneşte ia majoritatea controalelor ActiveX) 


> redimensionarea coloanelor are loc prin clic dreapta, urmat de alegerea opțiunii Edit din 
meniul contextual. La acest moment marginile coloanelor se pot deplasa cu mouse-ul. O coloană 
se poate chiar ascunde în acest mod. 

Celelalte trei obiecte de pe form, de tip TextBox: txtAdresa, txtCodPost şi 
txtCodFisc sunt legate la controlul numit datClienti dupa principiul deja cunoscut 
(proprietatea DataSource este datClienti, iar proprietatea DataField este un câmp 
corespunzător: adresa, codpost, codf isc). 

O atenţie deosebită trebuie acordată obiectului de tip DBCombo (în cazul nostru, 
dbcClienti), mai ales în ceea ce priveşte proprietăţile ce se referă la manipularea datelor din 
tabela sau din view-ul ataşat. Aceste proprietăţi îi conferă funcţionalităţi inexistente la controlul de tip 
listă combinată obişnuită (ComboBox) . în figura următoare se pot remarca proprietăţile: 
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de 


pro- 


Visual Basic 


RowSource: arată din ce control Data provin datele afişate în porţiunea cu listă 
acontholuluy de jp DBCombo (,,de unde citeşte controlul”). Prin stabilirea acestei proprietăţi, popularea 


] dbcClienti 


D8Combo 


> 


Alphabetic Categorized 


listei se “3 


realizeaza automat, nefiind nevoie de metoda Addltem; 


ListField: arată câmpul ale cărui valori citite din tabelă se 


O Appearance 
E Behavior 
O Data 
DataBindings 


3 


vor afişa în porţiunea cu listă a controlului 
dbcClienti; 
> BoundColumn: arată de pe care coloană din 


DataField tabela ataşată se vor returna valori atunci când utilizatorul 
Daia ormat selectează ceva din listă (această coloană şi coloana 
DataMember 7 i “ A s y 

ListField vor fi sincronizate). Este legată de 
DataSource 
a Font proprietatea  BoundText, accesibilă numai la 
RS momentul execuției. în exemplul nostru, vom alege nume 
BoundCol dcl PAEA ; ; i 

Sone ana,» SEES clienţi în clar (ListField=dencl) şi vom returna 

IntegralHeight True i E g 
dena =: coduri de clienţi (BoundColumn=codcl). Este o 

RowSource  datClienti prietate foarte utilă când elementul ales va constitui o 

ta valoare de căutat în altă tabelă (în exemplul nostru, vom 
[mi se 

(About) căuta codul selectat în tabela FACTEM, pentru a selecta 

(Custom) facturile unui anumit client); 

stii TR y DataSource: arată spre ce control Data sunt 

nable rue $ è a . x 
HelpContextID ; | direcționate datele selectate in porţiunea cu listă a 
Index controlului (,, unde scrie controlul’’)’, 

Mouselcon (None) y DataField: arată care câmp din DataSource 
MousePointer 0 - dbIDefault zi : A : ae 
primeste datele selectate in portiunea cu lista a 
Re controlului. 


Returns/sets the name of the fieid in the 


Observatie-, începătorii (şi nu numai ei) confundă adesea 


proprietăţile RowSource și 


DataSource, 
DataField. înţelegerea greşită a acestor proprietăţi poate duce Ia actualizări neverosimile, ce 
nu pot fi percepute imediat. 


respectiv proprietățile ListField şi 


în figura 17.17 stânga este prezentat modul de lucru corect: indiferent ce alegem din listă la 


momentul execuţiei, tabela constituită ca RowSource rămâne neschimbată. în dreapta se prezintă 


un exemplu greşit: controlul nu va afişa nimic, proprietăţile RowSource şi ListField fiind 


necompletate; în schimb, riscăm ca înregistrarea curentă a tabelei specificate prin DataSource să 


fie modificată. Exemplul din figura 17.18 este şi el incorect: stabilirea aceluiaşi control de tip Data 


ca RowSource şi DataSource simultan şi ulterior navigarea în listă va rescrie cu valorile alese 


de utilizator înregistrarea curentă a tabelei precizate în proprietatea DataSource. 
vor stabili două controale diferite de tip Data ca RowSource şi DataSource, 


Chiar dacă se 
riscul se 


menţine. De aici se desprinde o regulă de aur în folosirea acestor controale: 


> 


dacă dorim să folosim un control de tip DBCombo pentru a căuta ceva 


într-o tabelă pe 


baza valorilor din altă tabelă (în cazul nostru, să căutăm facturile unui client), vom popula numai 


propriu-zisă o 


proprietăţile RowSource, ListField şi BoundColumn. 
vom face prin cod, folosind proprietatea BoundText 


Căutarea 
şi va avea loc, 


logic, în altă tabelă decât cea care alimentează lista 
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Notă. Controlul DBList este asemănător din punct de vedere al proprietăţilor cu controlul 
DBCombo. 
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Figura 17.17. Două posibilități de conectare a controlului DBCombo la un control Data 
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Figura 17.18. Alt exemplu (greşit) de folosire a controlului DBCombo 


Pentru edificare, redăm mai jos întregul cod al form-ului frmOneToMany. Se impun următoarele 
precizări: 
> în evenimentul Change al obiectului dbcClienti se realizează căutarea explicită (vezi metoda 
FindFirst a obiectului Recordset) în tabela CLIENŢI a codului clientului ales din listă. 
Odată acesta găsit, va avea loc 
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poziţionarea pe înregistrarea corespunzătoare, ca şi afişarea adresei, codului poştal etc. 
Concomitent se modifică titlul grilei, adăugându-se şi numele clientului selectat 


(dbcClienti. Text); Visual Basic 


> proprietatea RecordSource a obiectului datFactem se modifică dinamic, din numele 


unei tabele (FACTEM) va deveni o interogare SQL parametrizată (se poate spune că 
definim un view), prin care se selectează numai facturile corespunzătoare codului de client 
ales. Se remarcă aici, ca şi la condiţia de căutare de mai sus, că variabila de tip şir de 
caractere (dată de proprietatea BoundText) se încadrează între apostrofuri, şi nu între 
ghilimele, cum ar fi normal. Este o excepţie ţinând de limbajul SQL. Prin invocarea 
metodei Refresh a controlului datFactem se regăsesc (şi afişează în grilă) doar 
înregistrările care satisfac clauza WHERE a interogării; 


> evenimentul OnAddNew are loc dacă se scrie ceva în una dintre căsuţele liniei marcate cu 


asterisc. Ne-am servit de acesta pentru a scrie automat valoarea cheii străine codcl in 
tabela FACTEM în caz că se adaugă o nouă factură pentru un client selectat. Astfel evităm 
şi încălcarea restrictiei referentiale; 


> în fine, la părăsirea aplicaţiei s-a testat o eventuală operaţie neterminată de actualizare (când 


proprietatea AddNewMode a obiectului dbgFactem este diferită de zero), caz în care se 
realizează explicit (datFactem. Recordset. 

„Update) sau se abandonează operația (datFactem. Recordset. Cancel 
Update). 


Private Sub dbcClienti Change () 
datClienti.Recordset.FindFirst ("trim(codcl)='" 


& dbcClienti.BoundText & dbgFactem.Caption = 


"Facturi emise către clientul " _ 


& dbcClienti.Text 


With datFactem 
„RecordSource="select * front factem where trim(codcl)=' 


II! 
& dbcClienti.BoundText & 


„Refres 


h End With 
End Sub 


Private Sub dbgFactem Or.AddNew () 


"scriem codul clientului in coloana 0 (invizibila) a grilei 
' (presupunem ca am selectat deja clientul dorit) 
dbgFactem.Columns (0) .Text = dbcClienti.BoundText End Sub 


Private Sub cmdExit Click () 
If dbgFactem.AddNewMode = 2 Then 'o operatie de adaugare 


If vbYes = MsgBox("O inregistrare este in curs de adaugare. 


‘este in curs 
Ww 


_ & vbCrLf & "Confirmati adaugarea?", _ vbYesNo + 

vbExclamation, "Adaugare in curs...") Then 

datFactem.Recordset.Update 'actualizam Else 
datFactem.Recordset.CancelUpdate 'anulam actualizarea 


End If 


End If 


If vbYes = MsgBox("Sunteti sigur?", vbYesNo + vbQuestion, _ "Terminare 
aplicatie") Then Unload Me End If 


End Sub Facilităţi pentru lucrul cu baze de date == 173 
Ati observat probabil in această secvenţă de program un grup de instrucţiuni de forma With...End With. 


Acestea folosesc la scurtarea codului atunci când trebuie făcute referințe multe la acelaşi control: proprietatile si 
metodele pot fi scrise cu omiterea obiectului de după With; liniile de program vor începe direct cu caracterul " . " 
(punct). Pentru edificare, oferim aici un alt exemplu, în care dorim să modificăm mai multe atribute ale unui control de 
tip Labei numit 1b1DenFirma: 
With lblDenFirma 

-Alignment = vbCenter .Font.Bold = 

True .Font.Size = 11 .ForeColor = 

vbRed .Caption = "Gata testul" 

-AutoSize = True End With 


Denumite clienl: la Biel 


| Beta S.B L Ci s e 
Cod, [6600 «Cod, [R564879 
A ' fiscal: 


Facturi emise catie clientul Beta S.Fi L. 


Numai Data Valoaie totala din care TVA 
factura | facturii 
O bo: 9/29/00 5039] 2500000 399159 66; 
10/23/00 e zece 1 


Exit | 


Figura 17.19. Aplicația în faza de execuţie. Se observă o factură în curs de adăugare 


Aplicația ar putea fi îmbunătăţită, în sensul includerii unui mecanism de calcul automat al valorii TVA, după 
formula TVA=valoare*19/1 19, sau a includerii pe form a unor controale in care să se afişeze valoarea totală (calculată) a 
facturilor emise unui client. 

O idee ar fi parcurgerea coloanei Valoare (Column3) a grilei şi însumarea valorilor afişate. Astfel, sub coloana 
corespunzătoare din grilă se adaugă un control Labei numit lblValoare, iar evenimentului 
dbcClienti_ Change ()i se adaugă următoarele linii de cod: 


"parcurgem setul de inregistrari corespunzător grilei: 

For J = 0 To datFactem.Recordset.RecordCount i 1 
dbgFactem.Row = i 'ne pozitionam pe linia nr. i "'cumulam 
valoarea cdsutei curente (coloana 3, linia i) 


sngValoare = sngValoare + CSng(dbgFactem.Columns (3) .Text) 


Next i 
‘afisam totalul valoric lblValoare.Caption = 
sngValdl/fe Visual Basic 


După caz, se poate crea o procedură de sine stătătoare care să facă acest calcul. Avantajul ar consta in 
reutilizabilitatea respectivei proceduri. 

Gândiţi-vă la posibilitatea de a scrie o procedură care şterge facturi emise unui client (dacă vi se pare necesar). 
Reamintim că, pentru a şterge înregistrarea curentă, se foloseşte metoda Delete a obiectului de tip Recordset. 


întrebări şi răspunsuri 

1. Care este baza de date „preferată” de Visual Basic ? 

2. Prezentati modul în care se poate crea o bază de date folosind mecanisme proprii Visual Basic. 

3. Adevărat sau fals? Visual Basic poate interpreta ca bază de date şi liste create în foi de calcul Excel. 

4. Există un control intrinsec pentru lucrul cu baze de date? 

5. Care proprietate a controlului Data specifică tipul bazei de date? 

6. Care dintre următoarele operaţii se pot realiza printr-un control de tip Data: creare tabelă, scriere date, citire date, 
actualizare date. 

7. Care este menirea obiectului RecordSet într-un control Data? 

8. înce fel este posibilă deplasarea de la o înregistrare la alta în cadrul celor selectate de obiectul RecordSet? 

9. Prezentati modul în care se defineşte restrictia de integritate referentiala la crearea unei baze de date cu Visual 
Data Manager. 

10. Care sunt cele mai utilizate controale externe pentru lucrul cu baze de date? 

11. Care sunt proprietăţile pentru manipularea datelor specifice controalelor „legate la date” precum DBCombo? 


Capitolul 18 VERB A VOLANT, S CRIPTA MANENT 


Acest capitol prezinta principalele comenzi utilizate pentru a tipari la imprimanta 
rezultatele prelucrarilor in Visual Basic. 

în versiunile Visual Basic până la 5.0 inclusiv, variantele extinse {Profesional şi Enterprise ) exista 
componenta add-in Crystal Reports, un generator de rapoarte capabil sa preia date din diferite surse 


(baze de date diverse). Obținerea unui raport la imprimanta (sau 
în mod previzualizare) presupunea două faze: 
> crearea machetei raportului cu Crystal Reports, aplicație lansata independent de 
Visual Basic, urmată de salvarea machetei pe disc; 


> includerea raportului într-o aplicație Visual Basic cu baze de date, prin o osirea unui obiect 
special, Crystal Report Control (CRYSTL32.0CX), adăugat la proiect prin opțiunea 
Project | Components. Acest obiect dispune de proprietăți şi metode care permiteau 


ataşarea unui raport gata creat şi tipanrea ori previzua- 
lizarealui. . ; 1; 
Controlul Crystal Report încă există, la fel şi dessgner-ul raportului, 


Microsoft livrează aplicaţia respectivă în pachetul Visual Studio 6 doar cu titlu de opţiune 
(nu se mai instalează implicit). în schimb, Visual Basic versiunea 6 este dotat cu facihtat. 


native de proiectare a rapoartelor, de o manieră similară realizam de rapoarte in 
programul Access. 


Cum funcţionează imprimarea în Windows? 

în sisteme de operare precum DOS, o aplicaţie trebuie să se ocupe cu toate comenzile privind 
pregătirea imprimantei, ajustarea hârtiei şi poziţionarea m pagina a caracterelor. Atunci când o 
aplicaţie Windows trimite o ieşire la imprimantă, sistemul de operare interceptează comanda de 
tipărire. Deci Visual Basic nu trimite o ieşire direct la imprimantă, ci subsistemului de tipărire din 


Windows. Acesta este denumit pun p 
sau print queue (coadă de tipărire). ; 
Spooler-ul poate comunica cu orice tip de imprimantă instalata sub Windows. Multe 


dintre imprimantele suportate de Windows cer comenzi speciale. „h'rvă că 
Rolul subsistemului de tipărire din Windows este ilustrat in figura 18 1. Se observa ca acesta poate 
transmite comanda de tipărire a aplicaţiei către oricare din imprimantele instalate. Comunicarea cu 
acestea are loc prin intermediul programelor cunoscute ca driver-e, convertind datele trimise de Visual 
Basic în formatul cerut de^ imprimanta respectivă. De aceea, proiectantul unei aplicaţii Visual Basic ce 


reahzeaza tipăriri nu trebuie să fie preocupat de particularitatile imprimantei, decât in măsura 
formateloi de hârtie suportate şi eventual a performanţelor grafice. 
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Aplicația 


=> 


Ieşirea trimisă la imprimantă 


( Sp“ Win t 


oier \ dows Jf 


Formatare pentru in| 
r 


nprimanta selectata 


Imprimanta 1 Imprinf 


Jes 


rmnta 2 Imprimanta 3 


Figura 18.1. Mecanismul imprimării în mediul Windows 


Pregătirea tipăririi 
Se referă la avertizarea utilizatorului în privinţa pregătirii imprimantei (punere sub tensiune, conectare a 
cablului de date, alimentare cu hârtie de dimensiuni adecvate etc.) pentru începerea tipăririi. Este 
recomandat ca aplicaţia să aibă mesaje de avertizare pentru pregătirea imprimantei. 
Mesajul din figura 18.2 se afişează de către sistemul de operare atunci când imprimanta nu este 
pregătită (nu este sub tensiune, nu există conexiune fizică, nu există hârtie). 


xj 
There was an error found when printing the document "Microsoft Word - VISUAL_BASIC_P21.doc" to LPT1;. The device is 
not O connected. : 
Do you want to retry or cancel the job? N 
Cancel Retry 
Figura 18.2. Mesaj de eroare la tipărire: imprimanta nu răspunde la comenzi 


Secvența de mai jos este inclusă în program înaintea instrucţiunilor de tipărire propriu-zise, pentru a 
cere utilizatorului confirmarea că imprimanta este pregătită. 
Public Function GataTiparire() As Boolean 
Dim intGata As Integer : : : v : 
intGata = MsgBox("Verificati daca imprimanta este pregătită", 
vbExclamation, "Pregătire tipărire") ~ 
If intGata = vbCancel Then 


GataTiparire = False ' s-a apasat butonul Cancel 
Else 
GataTiparire = True ' s-a apasat butonul OK 
End If End Function Verba volant, scripta manent 177 


In functie de rezultatul secventei de mai sus se va apela subrutina care executa tiparirea: 
If GataTiparire() Then 
Call Tipărire Else 

MsgBox "Imprimanta nu este pregătită!!!" 
End If 


Aici s-a presupus că subrutina Tipărire este realizată în altă secţiune a aplicaţiei. Specificul 


tipăririi în Visual Basic. Obiectul Printer 


Ieşirile trimise la imprimantă de aplicaţii sunt preluate de un obiect Visual Basic denumit Printer (este 
unul din obiectele sistem la care vom reveni în Capitolul 21). Acesta are câteva proprietăţi şi metode 
prin care se stabileşte aspectul ieşirii tipărite. Acest obiect nu se găseşte în toolbox, nefiind un obiect 
vizual, ci este accesat doar prin intermediul codului. 

Proprietăţile obiectului Printer sunt prezentate în tabelul 18.1. Se observă că multe sunt similare cu 
proprietăţile omoloage ale obiectului Form. 
Tabelul 18.1. Proprietăţile obiectului Printer 


Proprietate Descriere 

ColorMode Tipăreşte alb-negru (dacă are valoarea 1 sau vbPRCMMonochrome) sau color (la valoarea 
2 sau vbPRCMColor) . 

Copies Precizează numărul de copii de tipărit. 

Currentx Precizează poziţia orizontală din colțul stânga sus al paginii (coloana din care începe 
tipărirea), exprimată în twips sau unitatea definită de proprietatea 
ScaleMode. 

Currenty Precizeaza pozitia verticala din coltul stanga sus al paginii (randul cu care incepe tiparirea), 
exprimata in twips sau unitatea definita de proprietatea ScaleMode. 

DeviceName Indica numele echipamentului de ieşire (de regula, driver-ul imprimantei folosite). 

DrawMode Indică aspectul graficelor trimise la imprimantă. 

DrawStyie Specifică stilul liniilor grafice desenate de aplicaţiile specifice. 

DrawWidth Specifică grosimea liniilor grafice desenate (între | - implicit şi 32767 pixeli). 

DriverName Precizează numele driverului de imprimantă. 

Duplex Dacă este 1 (sau VoPRDPSimplex), tipărirea se va realiza pe o singură fata, dacă este 2 


(sau vbPRDPHorizontal) pe ambele fete - dacă imprimanta permite -, cu întoarcerea pe 
orizontală a hârtiei, iar dacă este 3 (sau vbPRDPVertical) se tipăresc ambele fete, cu 
întoarcerea pe verticală a hârtiei. 


FillColor Precizează culoarea interioară a figurilor tipărite. 

Font Indică un font care s-ar putea utiliza. 

FontBold Dacă este True, secvenţa următoare se va tipări îngroşat (bold) , iar daca este False 
se va tipari normal. 

FontCount Obtine numărul fonturilor instalate pe imprimanta curentă. 

Fontltalic Daca este True, secventa urmatoare se va tipari cu caractere cursive (italic), iar daca 


este False se va tipări normal. 
FontName Precizeaza fontul curent folosit pentru tiparire. 


FontSize Indica mărimea, în puncte, a fontului curent. 


Proprietate Descriere 
FontUnderline y x DEui iat ate 
Daci Tn? «prventa următoare se va tiDări subliniat (under 
line), iar dacă este False se va tipări normal. 
178| ForeColor precizează culoarea de fundal pentru textele şi 
Height Indică înălţimea in twips a paginii de tipărit. .... 
Orientation [Dacă este 1 (sau vbPRORPortrait), tipărirea se va realiza 
vertical (Portrait), dacă este 2 (Sau  vbPRORLandscape) 
Page Indică numărul paginii curent tipărite; se actualizeaza 
PaperBin Indica tava din care se ia hârtia la imprimantele cu 
alimentare automată (există literali predefiniti pentru 
P 4 A è ik š i ‘i Pi i A 3. pi 
aperSize Specifică dimensiunile hârtiei pe care se tipăreşte (se 
tili ază Tit rali nr ad finiti nent ru Ai farit mărimi) 
Port Precizează portul imprimantei (cel mai frecvent LPT1:). 
PrintQuality [precizează calitatea tipăririi: 1 (vbPRPQDraft) arată 
calitate slaba, dar viteza d xecuti st mare; 2 
(vbPRPQLow) st rezoluti mică, 3  (vbPRPQMedium) este 
ScaleMode Setează unitatea de măsură utilizată in setările 
TrackDefault Dacă este True, se modifică imprimanta curentă, dacă se 
schimbă imprimanta la nivelul sistemului de operare, 
iar dacă este False imprimanta nu se schimbă pe 
i parcurs] cutiei anlicatiei indiferent d taril 
Width Indică lăţimea in twips a paginii de tipărit. 
Zoom Permite mărirea sau micşorarea iesirii tipărite (o 
valoare negativă arată cu cât se ^ micşorează, 0 (zero) 
7 i g ă j j Q j ri j ~ i rs ~ i i A A 
Cele mai utillizate metode ale obiectului Printer (vezi tabelul 18.2) 
+ Dri + 
EndDoc şi NewPage. 
tabelul 18.2, Metodele obiectului Printer 
Metodă Descriere 
Circle Imprimă un cerc. o elipsă sau un arc. ------------------ 
EndDoc Marchează sfârşitul documentului curent si îl trimite la 
Kult bee Anulează tipărirea pentru lucrarea curenta (o şterge uni 
Line A 
Nsukage Trimite o comandă de sfârşit de pagină, astfel că 
- hirmAt oar a lncrar imnrima n _naaina următoar 
PaintPicture [Imprimă o imagine grafică specificată. 
Prinţ Imprimă valori numerice sau texte specificate. 


Observatie-, Metodele Circle, 


Line şi Print sunt metode (numite şi metode grafice) care se 


aplică, cu anumite particularităţi, şi obiectului Form. 


Metoda Prinţ 


Se utilizează pentru a afişa diverse texte sau expresii numerice. Formatul de utilizare este: 
[Printer.]Print [Spc(n) I Tab(n)] <expresie> 
Notă: dacă se omite Printer, expresia se afişează pe form-ul curent. 


Această metodă este de fapt o reiterare a vechii comenzi BASIC Prinţ, care afişa date pe un 


ecran de 25 linii * 80 coloane în mod text. Varianta pentru imprimantă era comanda LPrint. 


Observaţie: dimensiunile standard (în mod text) ale unei pagini A4 sunt 66 de linii x 80 de 
coloane (132 coloane în modul Condensed) . Dimensiunile în twips se pot calcula ştiind că 
pagina are 21 *29.7 cm (8.27* 11.69 inches), iar 1 twip=1/1440 inch. Folosind metoda Print se pot 


tipări: 


> constante (numerice sau şir de caractere), ca în exemplele de mai jos; 
Printer.Print "Program de calcul al salariilor" 


Printer.Print Printer.Print 2000 (a doua comandă 

tipăreşte o linie liberă). 

> variabile şi valori ale proprietăţilor controalelor (ca în exemplele ce urmează); 

ume = "Popescu Emil" Verba volant, scripta manent 

Varsta = 34 

Printer.Print Nume 

Printer.Print Varsta 

Printer.Print lblFirma.Caption 

> expresii, formate din variabile, constante sau valorile deţinute de controale (ca în exemplele de 
mai jos); 

Printer.Print sngValoare*0.22 + sngValoare 

Printer.Print "S.C."& Chr(34) &"ALFA"&Chr (34) &"S.A." 

A doua comandă va tipări S.C. „ALFA” S.A. (s-a specificat caracterul ,, prin intermediul codului 
ASCII corespunzător - 34). Funcţia Chr () este utilizată pentru specificarea unor caractere speciale. în 
acest exemplu, dacă s-ar fi scris simplu ghilimele în loc de Chr (34 ), acestea ar fi fost percepute ca 
delimitator pentru şiruri. 


Observaţie: Aceste comenzi trebuie incluse în proceduri-eveniment sau subrutine apelate de 
acestea. Spre exemplu, se poate defini un buton de comandă cu numele Tipărire, în a cărui 
procedură Click () să se includă comenzile de tipărire. 


Tipărirea de valori multiple 

într-o aplicaţie poate fi necesar ca mai multe valori să se tipărească pe aceeaşi linie. Spre exemplu, dacă 
un raport de tipărit are formă tabelară, trebuie plasate valorile astfel încât să apară aliniate pe coloane. O 
pagină este împărțită în mai multe zone de tipărire. Fiecare zonă este alcătuită din 14 coloane. 

Pentru a tipări pe aceeaşi linie se utilizează caracterele " , " sau " ; Dacă se foloseşte caracterul " ;" 
valoarea specificată se va tipări imediat după cea anterior tipărită. Dacă se foloseşte caracterul ", " 
tipărirea se va face în următoarea zonă de tipărire, realizându-se astfel alinierea pe mai multe coloane. 

Exemple'. 

Printer.Print "Media generală est 
Printer.Print sngMediaGen 

Printer.Print "Nume si prenume", "Salariu" 
Printer.Print strNume(i),, sngSalariu (i) 
La executie se obtine: 

dia generală este 8.87547 


ume si prenume Salariu 
Popescu Emil 1457800 


Pentru prima linie afişată se putea scrie o singură comandă, plasând după caracterul numele variabilei de 
tipărit. La a doua linie afişată, „Nume şi prenume” se scrie începând din coloana 1, iar „Salariu” 
începând din coloana 29 (deoarece „Nume şi 

prenume” are mai mult de 14 caractere). De aceea, în comanda de afişare a variabilelor am specificat de 


două ori caracterul " , " (virgulă). Deci caracterul " ;" se utilizează atunci când tipărirea se face în 
continuare, tară spaţii intermediare, iar caracterul " , " se foloseşte pentru alinierea pe mai multe coloane. 
> 
Utilizarea fonlurilor 


Imprimantele pot lucra cu diferite fonturi. Obiectul Printer are mai multe proprietati legate de 
font, ce sunt utilizate in special pentru tiparirea unor elemente precum titlurile diverse. Spre exemplu, 
pentru a tipări un titlu foarte mare, cu caractere ingrosate şi italic, se va scrie: 

Printer.FontBold = True 

Printer, ponțltalie = True 
Printer.FontSize = 60 Printer.Print 
"STAT DE PLATA" 

Proprietăţile definite pentru font se aplică pentru secvenţa de tipărit imediat următoare (nu afectează 
secvențele tipărite înainte) şi trebuie actualizate pentru a reveni la tipărirea normală. 
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Utilizarea funcţiilor SpcQ şi Tab() 


Aceste funcţii permit un control mai bun asupra aşezării în pagină a secventei de tipărit. Funcţia Spc 
() afişează un număr specificat de spaţii, iar funcţia Tab () indică din care coloană se va începe 


180 tipărirea. Spre exemplu: 


în primul exemplu, se lasă 5 spaţii între cele două variabile afişate, iar în al doilea tipărirea valorii 
variabilei începe din coloana 45. Un alt exemplu de utilizare a acestor funcţii este inclus în secvenţa de 


Visual Basic 
Printer.Print strNume;Spc(5);strCetatenie 
Printer.Print Tab(45);dteDataDoc 


cod din paragraful urmator. 


Lansarea tiparirii 


Tipărirea propriu-zisă începe după ce întreaga lucrare a fost trimisă subsistemului de tipărire (spooler- 
ului), care construieşte secvenţa de trimis la imprimantă, dar nu lansează tipărirea până când nu este 
lansată din Visual Basic metoda EndDoc a obiectului Printer. Dacă aplicaţia are mai multe lucrări 
de trimis la imprimantă - spre exemplu, mai multe facturi - imprimarea factură cu factură se va face dacă 


pentru fiecare s-a specificat EndDoc. 


Secvența de cod de mai jos realizează tipărirea unui document întocmit la casierie pentru acordarea 
unui avans spre decontare, deci documentul trebuie obţinut imediat pentru ca persoana care primeşte 


avansul să-l semneze. Tipărirea propriu-zisă este lansată prin metoda EndDoc. 


Printer. 

" din 
Printer. 
Printer. 
Printer. 


Printer. 
Printer. 


Prin 


Prin 


Prin 


data 
Print 
Print 


Print 


x 


y 


de " 


"Nume si prenume: 


Tab 


(40) ; "Semnătură" 


t Tab (8);"Avans spre decontare nr. 
; Date 


strNume; 


Spc (3); 


"Functia:";strFunctia Printer.Print "Suma primita:"; 
Format (sngSuma, 


intNrDoc; 


Spc (2); 
"EE, THE") 


1 Declanseaza tiparirea propriu-zisa 
Printer.EndDoc 


Verba volant, scripta manent 
Definirea sfarsitului de pagina p 


Dacă o lucrare trimisă la imprimantă se întinde pe mai multe pagini, spooler-ul va asigura automat 
avansul la o pagină nouă după ce precedenta s-a terminat (dacă pe o pagină A4 se pot imprima 66 de 
linii, când se ajunge la a 67-a se avansează automat la o pagină nouă). Avansul la pagină nouă fără ca 
precedenta să se fi terminat este adesea necesar în tipărirea diverselor documente (adeverinte, diplome, 
chitante etc.). Prin metoda NewPage, imprimarea secventei următoare se va face după avansul la o 
pagină nouă. Invocarea metodei este foarte simplă: 

Printer .NewPage 

Observaţie: numărul liniilor care încap pe o pagină depinde de fontul utilizat la un moment dat. 

Pentru o stabilire exactă a numărului de linii trebuie realizat un calcul de genul: 

intNrLinii = Printer.Height / Printer.TextHeight ("X") Proprietatea 

TextHeight stabileşte înălțimea unui caracter tipărit cu fontul X (de exemplu, Courier) . 

După cum spuneam mai sus, metoda Prinţ poate fi utilizată pentru a tipări direct pe un form, fară 
a apela la obiectul Printer. Spre exemplu, se poate tipări un titlu pe un form denumit 
frmAmortizare cu următoarea instrucţiune: 

frmAmortizare.Print Spc (20); "CALCUL AMORTIZARE" 

Numele form-ului (în acest caz, frmAmortizare) poate fi omis dacă respectiva comandă de 


tipărire se lansează într-o procedură a aceluiaşi formular. 

Observaţie: anu se confunda metoda Print cu metoda PrintForm! 

Folosirea metodei Prinţ nu constituie cea mai comodă cale de a realiza afişarea unor texte ori 
numere. Chiar dacă dispunem de metodele TextWidth, TextHeight, în cadrul unui form, o 
poziţionare mult mai precisă a textelor de afişat se obţine dacă se utilizează controale Labei sau 
TextBox, atribuind valorile de afişat proprietăţilor Caption ori Text, după caz. în cazul afişării 
la imprimantă, metoda Prinţ dă rezultate bune pentru volume mici de date, fără necesităţi deosebite 
de formatare, altfel efortul programatorului va fi considerabil. Acest efort este redus, în cazul aplicaţiilor 
cu baze de date, de utilizarea generatoarelor de rapoarte. 


=> 


ntrebări şi exerciții 
De ce ieşirile pentru imprimantă în Visual Basic nu sunt trimise imediat acesteia? 
Ce se întâmplă dacă imprimanta nu este pornită (online) atunci când utilizatorul imprimă? 
Care este diferenţa dintre obiectul Printer şi metoda Prinţ? 
Cum se poate specifica numărul de copii care trebuie imprimate? 
Adevărat sau fals: obiectul Printer se poate adăuga în Toolbox. 
Câte spaţii conţine o zonă de imprimare în Visual Basic? 
De ce uneori e necesară folosirea funcţiei CHR () la imprimare? 
Ce se obţine la imprimantă în urma execuţiei următoarei secvenţe de program? 
Printer.Print "1"; 
Printer.Print "2" 
9. Adevărat sau fals: plasarea combinatiei Tab (14 ) după fiecare variabilă de imprimat face acelaşi 
lucru ca plasarea virgulei între variabilele de imprimat. 
10. Adevărat sau fals: metoda Prinţ se poate utiliza pe un form. 
11. Scrieţi metoda Prinţ pentru a tipări caracterul „ă”. 
12. Scrieţi un program care imprimă valorile ASCII de la 32 la 155 atunci când utilizatorul execută clic 
pe un buton. 
13. Modificaţi aplicaţia cu edituri şi cărți de la capitolul cu baze de date pentru a imprima numele 
editurii şi oraşul (din înregistrarea curentă) atunci când utilizatorul execută clic pe un buton. 


Capitolul 19 
RAPOARTE 


FO SON One. da 
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Realizarea unei aplicaţii complexe, cu precădere a uneia cu baze de date, necesită tipărirea unor 
volume mari de date, în formate uneori foarte complicate. în astfel de condiţii, comanda Print se 
dovedeşte inadecvată, deoarece numărul de comenzi de formatare şi tipărire propriu-zisă ar fi foarte 
mare. Ştim că mediile de proiectare a aplicaţiilor cu baze de date dispun de generatoare de rapoarte. 
Acestea sunt instrumente software cu ajutorul cărora macheta raportului se proiectează de o manieră 
vizuală, plasând texte statice şi controale pentru afişarea variabilelor ca şi cum am face-o pe un 
formular. La momentul execuţiei, macheta respectivă va prelua date din baza de date, le va 
formata după cum s-a stabilit la proiectare şi le va afişa la imprimantă. 


Concepte de bază 


Pentru a putea întocmi un raport cu generatorul din Visual Basic 6.0, e nevoie să lămurim câteva 
concepte noi, de a căror înţelegere depind proiectarea corectă şi exploatarea ulterioară a raportului. 

Visual Basic 6.0 introduce o nouă categorie de obiecte pentru lucrul cu bazele de date, şi anume 
cele din categoria ADO (ActiveX Data Obiects). destinate a înlocui controalele DAO (Data Access 
Objects) din versiunile 4 şi 5. Obiectele ADO au fost proiectate pentru a oferi, pe de o parte, o cât mai 
mare flexiBTITtăTe-Tn-9omeHful surselor de date (compatibilitate cu o gama largă de formate de 
baze de date), iar pe de altă parte o abordare cât mai unitară şi mai simplă pentru cel care proiectează 
o aplicatie.cu baze de date. 

Pentru a repre7t*nta'O'tatrcfa a itnei bazede d'ate'foloMiid controalele „tradiţionale” DAO “a 
nevoie~~ag un control” pata, controluT corespurizafbr în tehnologia” ADO este A D OP a t 
aUonEToTTDF'st-“ttrig’*o~p 1 e i ad 4 dc alte controaieT DataListrDataComEo, DataGrid, care le 
pot inlocui pe cele tratate in Capitolul 17. Mai mult, aceste noi controale au proprietati $i metode 
extinse care le fac adecvate pentru baze de date relationale din categoriile cele mai diverse. 

Pe lângă aceste controale „vizuale”, noile clase ADO cu aplicabilitate în domeniul bazelor de 
date şi pe care le vom utiliza efectiv în crearea raportului sunt: 
> sursă de date (Data Environment) 


> conexiune (Connection) 
> comandă (Command). 

în ciuda numelui, obiectul de tip Command reprezintă o tabelă sau un view dintr-o bază de date 
existente, dar poate fi şi un set de înregistrări creat ad-hoc printr-o interogare SQL adecvată Rolui 
obiectului de tip Connection este de a preciza calea până la baza de date (în caz că aceasta este de 
tip ISAM!3"4 Access, Visual FoxPro, Paradox) ori server-ul bazei 


13 Index Sequential Access Method- metoda de organizare a fişierelor clasice, moştenită de bazele de date „de birou” pentru 
microcalculatoare. 


de date şi tipul de driver ODBC! necesar, în caz că este vorba despre o bază de date SQL Server, 
Oracle, DB2 etc. Aceste obiecte sunt organizate într-o ierarhie în care un obiect Environment este 


părintele unuia sau mai multor obiecte Connection, în vreme ce un obiect Connection joacă 


rolul de părinte pentru mai multe obiecte Command, care se vor referi toate la baza de date 
specificată ca sursă de date pentru conexiunea respectivă. Pot fi şi obiecte de tip Child Command, 
care definesc o relaţie între două tabele ale unei baze de date. Din punct de vedere ierarhicTâCestea 


sânt-situate sub obiectul Command. 


DaTnumai cu obiecte Environment, Connection şi Command nu putem crea un raport. 


Este nevoie de două categorii noi de module ale proiectului: 


> Data Environment ~- un modul care permite combinarea de o manieră intuitivă a 


obiectelor de tip Connection şi Command, in scopul definirii surselor de date pentru 


viitoarele rapoarte; 


> Data Report - o machetă identică unui raport Access (pentru cei care au mai lucrat cu 


acesta). Proiectarea lui se face tot de o manieră vizuală, prin plasarea de texte statice şi căsuțe de 


text care reprezintă câmpuri din obiectele de tip Command (reamintim că acestea sunt seturi de 


înregistrări) pe o machetă ce comportă mai multe zone. Zonele de bază sunt prezentate în figura 


19.1. 


“i DataReponti 
0elmle ra es da EOS es . 
ae ee | 


| 4 Report 


(Section4) 


9 Antet de pagină 


Date care apar la 
raportului (titlu, 


) 


X 


Page 


(Section2) 
4 Detai! 


Rândul curent La 
multiplică de atâtea 
grupul de 


se bazează raportul. 


(5ection3) 
Subsol de pagină 


4 Report Footer (Section5) 


Date care apar la sfârșitul raportului (semnături, totaluri generale etc ) 


Figura 19.1. Zonele unui raport 


la lml 


2ma1.|m 


Header 


începutul 
denumire firma etc 


Header 


(Sectionl) 


imprimare, se 
on câte linii are m 


înregistrări pe care 


Footer 


14 Open DataBase Connectivity - tehnică permiţând accesul la baze de date puternice, „de întreprindere”, de tip client-server. 
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Proiectarea unui raport 


Pentru a lucra cu obiecte de tip Data Environment şi Data Report, acestea trebuie 
adăugate la proiectul curent. Dacă la lansarea opțiunii New Pro j ect din meniul File al 
mediului Visual Basic alegem configuraţia Data Proj ect, atunci wizard-ul va crea un proiect- 
schelet cu facilități pentru rapoarte gata înglobate. Dacă, dimpotrivă, dorim să cuprindem astfel de 


elemente într-un proiect obişnuit de tip Standard EXE, va trebui să 
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adăugăm manual două obiecte de tip Designer, respectiv Data Environment şi Data 
Report. în acest scop utilizăm meniul Project, opţiunile Add Data Environment şi 
Add Data Report. Deoarece acestea nu apar în mod implicit în meniul Project, vom activa 
opţiunea Components, obţinând ecranul din figura 19.2. 


Controls Designers | Insertable Objects | 


Class Module j jj Add User 


DiN ME Baga Control icsi Add Property 
Microsoft Forrns 2.0 Form Pay Adee 


Microsoft  UserConnection 

weber: a 
aerat U O 
ata Report Location:D:\WINNT\System32\M5DBRPT.DLL 


- 
‘ 


Add Data Report 


Observati că ne găsim în pagina Designers. După bifarea opţiunilor Data) Environment 
şi Data Report,|acestea vor deveni accesibile prin meniul Pro j ect. iect de tip Data 
Environment 


Observaţie: obiectele de tip Designer_se Salveaza în fişiere leu ektehisia|. sr. 


(l21] deVinzari 
Conneclionl 


deVinzari_ _ DataEnvironment 
cy icii apay RAT Pip at 

Alphabetic | Categorized 

[About) 

Name) deVinzari 


Environment 
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Componenta pe care am adăugat-o a fost denumită deVinzari, 


deoarece intenționăm să-i 
ataşăm baza de date VINZARI, 


creată într-un capitol anterior. Dar baza de date nu se ataşează 
direct, ci prin intermediul obiectului Connection. în acest scop, redenumim 


Connectionl în decVinzari. 
kft Dala Ui* Piopeilie» 


] ala Link Piopeiliet 


: provider Connection ] Advanced | AJ ] 
Provider J Connection | Advanced | Aii Se.ect 


Specify the foHcwmg fo connect to Access data. 
the data you want te connect to 


OLE DB Provider (s) 


1. Select or entet a “atabose name. 
Microsoft Jet 3.51 OLE DB Provider 


Microsoft Jet 4 0 OLE DB Provider 


Enler inlormation to log on to the database. 
Microsoft OLE DB Arovider foi ODBC Drivers Microsoft Pa Ree gies e en ee 
OLE DB Provider fer Oracle Microsoft OLE DB Provider I 
‘or SQL Server Microsoft OLE D3 Simple Provider 
era PiBlank password f" Allow savmg password 
ataShape 


Uver narre: | Admiri 


lest Connection 


Help 


Help 


Figura 19.4. Proprietăţile obiectului de tip 
Connection 


% Dala Link Pioj 


Piovider Connection Advanced ] All | 


Nelwork settings 


Cancel 


Figura 19.5. Alte proprietăţi ale obiectului de tip Connection 


Proprietăţile afişate în fereastra obişnuită Properties sunt destul de puţine, dar aşa cum ne-am 


obişnuit cu alte obiecte de tip ActiveX, există o fereastră PropertyPages, 
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care se afişează prin clic dreapta pe obiectul decVinzari, alegând opţiunea Progsrties... 


După cum observăm în figurile 19.4 şi 19.5, în ferestrele Provider, Connection şi 
Advanced se stabilesc parametri precum tipul bazei de date (am ales Jet 4.0 OLE DB, fiind 


vorba de o bază de date Jet), numele si calea bazei de date (sau server-ul, dacă este vorba de o bază 
de date SQL Server ori Oracle), numele de utilizator şi parola precum şi tipul de acces (s-a ales Read 
pentru că nu dorim decât afişarea unor rapoarte cu date din tabelele bazei de date). 

Urmează adăugarea de obiecte Command care să reprezinte tabele sau view-uri din baza de date. 
Acest lucru se face lesne prin alegerea opțiunii Add Command din meniul contextual al obiectului 
Connection (figura 19.6). 


><| daï 1) 8 ag) | XIEOMESI! o] 
A 7. f 
a! fi; jj. te 
deVinzari a pa decVinzani 
-a a . 
lil-lalll demCli Exparid All Cojlapse Aii 
: DeleSe i 
Rename 
Refresh iz 
Add Command 
jnsert S tored Procedutes: 


View Code 


Properties... | 


; Connection: decVinzari (not connected) 
Figura 19.6. Adaugarea unui obiect Command 


Va rezulta un obiect Command care poate fi redenumit după dorință (l-am numit 
dcmClienti) şi prin ale cărui proprietăţi se stabilesc tabela de bază ori view-ul corespunzătoare 
(Command Text, Command Type), modul de acces etc. Şi aici există o fereastră Property 
Pages, în care observăm (figura 19.7) că obiectul Command poate fi bazat chiar şi pe o interogare 
SQL. Din această fereastră de proprietăţi se stabilesc inclusiv modalităţile de grupare a înregistrărilor, 
necesare la crearea ulterioară a raportului. 

Rapoartele de tip Master-Detail (ori One-to-Many) utilizează de regulă date din mai multe tabele, 
între care se stabilesc relaţii temporare. Este şi cazul de față, având nevoie de date din tabelele 
CLIENŢI şi FACTEM. O soluţie pentru crearea unui astfel de raport ar fi bazarea lui pe un obiect 
Command creat printr-o interogare SQL adecvată. Există şi alternativa mai flexibilă oferită de Data 


Environment, şi anume utilizarea de obiecte de tip Child Command. Un astfel de obiect se 
creează folosind meniul contextual, dar al unui obiect existent de tip Command, de data aceasta. în 
exemplul nostru, obiectul dcmClienti este obiect de tip Command părinte, iar obiectul 
dcmFactem este obiect de tip Command copil (vezi figura 19.8). 


dcmClienti Piopeities 


Geneial ] Parameters j Relata | Grouping | Aggiegates | Advanced ) 


188 Command Name: | VisuaF Besien: |decvreasi j] 
demClienti 


Soutce of Dala 3: 
SitiiiilBbiii 


jlabie Obiect Name- client, 


f~ SQLS 


OK Cancel âPPi Help 
y 


Figura 19.7. Proprietăţile unui obiect Command 
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dcmFactem Piopeities 
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alosa ca d seal lau boas 
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m 
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K 
Figura 19.8. Obiect Command copil şi legătura sa cu obiectul Command părinte 


In această figură se observă şi câmpurile celor două obiecte de tip Command, respectiv ale 


tabelelor Clienţi şi Factem. Dacă tabelele şi baza de date sursă au fost corect specificate, 


atunci câmpurile pot fi regăsite printr-o simplă comandă din meniul contextual: 


Refresh. 


In acest moment am terminat cu crearea sursei de date pentru raportul nostru. Vom adăuga un 


obiect de tip Data Report, 


al cărui aspect va fi iniţial cel din figura 19.1. Ii vom atribui numele 


drClientiFactem (vezi proprietatea Name) . 


In figura 19.8 observăm mai multe proprietăţi ale obiectului Data Report. Unele dintre ele 


se pot vedea în fereastra Properties. Acestea sunt: 


> 


Source: obiectul de tip Data 


Data 


Environment (aici, deVinzari); 


> Data Member: obiectul Command cu cel mai inalt nivel (in cazul nostru, dcmClienti) ; 
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proprietăţi de dimensionare: lăţime, înălțime, distanța de la marginea hârtiei, aspectul ferestrei de 


previzualizare etc. în ceea ce priveşte dimensiunile raportului, acestea sunt exprimate in twips, 


dar 


fereastra de creare a machetei este gradată în inci, aşa că se poate menţine concordanța cu 


dimensiunile hârtiei folosite. Dimensiunile diferitelor secţiuni din raport se pot modifica mai 
comod cu ajutorul mouse-ului. 


+ Report header (Secta) 
* Page Header SectionZ) 


4 (letal (S<cmnl) 


4 Fioter (Section3) 


4 Report Footer (SectiorS) 


13 
| Alphsbeti: | Categcrued j 
TABU) 
(Name) dClieritiFacoji 
BordertAyle 2 Mwscab'e 
RottomMargm 1440 
Caption Facturi emise clienticr: 
ControSox True 
CatiMe river ckniCtenti 
CataSource deVinzari 
tnabled True 
“ont Anal 
Grrdx 10 
(Giay u 
iSns20 i 
(lion) 
Left o 
LeftMary»! 7440 
True 
csi—l False 
F pjoneToMany (ExempluOneToMtviy.vbp) True 
(None) 
iN Forfnl (Fort) Soan 
sl frrnOreToMany (CneToMany fini) 


"> Deligneis 
£2 deifinzari (devnzari.Dsr) 
‘drClientiFacturi (drClientFacturi.Dsr, 


Figura 19.9. Macheta implicită a raportului 


Pe macheta raportului se plasează controale speciale, care se găsesc pe o nouă bară de 


instrumente (DataReport) vizibilă şi în stânga figurii 19.9. Dacă nu e vizibilă, bara poate fi 


afişată 


(se 


[Me et a et peel e li eee a prin clic pe butonul 


Stuchiss Changs OAZ | intitulat chiar 
DataReport. Aceste 
controale sunt: 


> xrptLabel: text 
| static; 


E aul | > rptTextBox: 
câmp preluat din tabelă 
lucrează cu proprietăţile 


SERIN] [i _ Data Member şi 


Data Field); 
> rptlmage: se inserează o imagine memorată ca un fişier pe disc (de exemplu, sigla unei 


firme); 


>  rptLine: se trasează linii orizontale, verticale şi oblice; 


190 


Visual Basic 


rptShape: dreptunghiuri, elipse şi dreptunghiuri cu colţuri rotunjite, colorate sau nu; 
rptFunction: permite introducerea unei functii-agregat: sumă, medie aritmetică, număr de 
înregistrări din secţiune, dispersie, abatere medie pătratică etc. (proprietatea FunctionType) . 
Acţionează numai la nivel de coloană, deci nu poate face calcule „pe orizontală”. Domeniul 
funcţiei depinde de zona Footer în care este plasată (pentru a extinde acest domeniu, folosiţi o 
zonă mai joasă; de exemplu cu valoarea 0- rptFuncSum se obţine total pe grup in Group 
Footer, totalpe pagină în Page Footer, total general în Report Footer); 

câmpuri speciale, existente în meniul contextual al secţiunii respective (figura 19.10). 
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înainte de a trece la plasarea diferitelor elemente pe macheta raportului, este indicat să ataşăm 
fiecărei secţiuni sursa sa de date. Acest lucru se face prin clic dreapta oriunde pe raport, urmat de 
alegerea opțiunii Retrieve Structure din meniul contextual. Ca urmare, obiectele de tip Child 
Command se vor ataşa zonei Detail din raport şi se vor crea automat atâtea zone de grupare a 
înregistrărilor câte obiecte de tip Command avem. Dacă respectiva structură nu convine, se poate 
alege opţiunea Clear Structure din meniul contextual. 

în loc de a fi trasate cu mouse-ul şi de a li se atribui manual valori pentru proprietăţile Data 
Member, respectiv Data Fieid, câmpurile se pot insera şi prin drag-and-drop din fereastra 
Data Environment în fereastra Data Report. Cu această ocazie, fiecare câmp dintr-un obiect 
Command devine un obiect de tip rptTextBox, ba chiar acestor câmpuri li se ataşează automat şi 
câte un obiect de tip rptLabel ce conţine numele câmpului (de regulă, numele câmpurilor sunt 
mnemonice, deci va trebui să modificăm ulterior proprietatea Caption a acestor etichete cu ceva 
mai sugestiv). Orice câmp dispune de proprietăţi referitoare la modul de aliniere, la culoarea textului 
şi a fundalului, la chenar, la font etc., iar pentru obiectele legate la date (rptTextBox şi 
rptFunction) există şi proprietatea Data Format (şablon pentru afişare). 

în urma plasării controalelor pe machetă şi a redimensionării lor adecvate, se obţine raportul din 
figura 19.10. Din acest raport lipsesc elemente precum titlul şi numerele de pagină, care vor fi 
adăugate ulterior. 


~ General ~~ 


| Y Dat aRsport MB [m] xjl 
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| a Fieid: adlsrwWChar- | Total: SUM(valoare) SUM(«altua) 
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Figura 19.10. Macheta raportului după crearea câmpurilor sale 


> câmpurile de tip rptTextBox nu pot fi plasate decât în zonele Detail şi Group Header, 


respectiv Group Footer: în zona Group Header nu se pot plasa decât câmpuri (controale 
rptTextBox) care aparţin obiectului de tip Command părinte, pe când in zona Detail se 
pot trasa doar câmpuri (controale rptTextBox) care aparţin 
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obiectului de tip Command copil. Câmpurile de tip rptFunction se pot plasa doar în zonele 
Group Footer, respectiv Report Footer. In fine, în zonele Report Header, Page 
Header şi Page Footer nu se pot insera decât texte (rptLabel), imagini (rptlmage), 
figuri geometrice (rptline, rptShape) şi câmpuri speciale (număr de pagină, data şi ora etc.) 
- vezi figura 19.11; pentru a crea câmpuri calculate (de exemplu valoaretvaltva) e nevoie să 
se introducă o comandă SQL adecvată în definiţia obiectului Command (vezi figura 19.12). Ulterior, 
se va crea în raport un câmp bazat pe acea expresie calculată. 
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Figura 19.11. Controale speciale inserabile prin meniul 
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| | Title | 
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Connection: jiecşniari m.. jj 


Command Name: jdcmFactem~ r Source of Data 


! CDatabase Object: | Table i ObjectName: Iteern 
(“SQL Statement: 


select codcl nrfact, datafact, valoare, valtva, valoare+valtva as 
valcutva from factem order by codcl nrfact SQL Builder... 


OK Cancel Apply 


Figura 19.12. Obiect de tip Command cu câmp calculat (prin SELECT - SQL) 
Help 


Utilizarea unui raport 
Odată raportul creat în cadrul proiectului, utilizarea lui poate îmbrăca una dintre următoarele forme: 

> previzualizarea, prin metoda <nume raRapoařte Show; 193 

> exportul, prin metoda <numeraport> . ExportReport; 

> imprimarea, prin metoda <numeraport> . PrintReport. 

Comenzile pot fi ataşate unei proceduri-eveniment a unui buton sau opţiune de meniu, după 
dorinţă. 

Previzualizarea (metoda Show) are loc într-o fereastră ale cărei proprietăţi au fost stabilite la 
crearea raportului (este vorba de dimensiuni, titlu, bordură etc.). Se poate ajusta, ca orice form, şi la 
momentul execuţiei (de exemplu, maximizare cu <nume raport>. 
WindowsState=vbMaximized). După caz, se poate proceda la tipărirea raportului sau la 
exportul acestuia în format HTML ori text (vezi figura 19.13). 


Data facturii 


. uri din care TVA 
Client ” Beta SR L. cu sediul in: Pacurari 69 


R564879 


cod 
5012 09/29/2000 2500000 


5039 10/23/2000 1190000 190000.00 


399159.66 
PN a 
3690000 589159.6639 
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5011 00/28/2000 1190000 190003 00 


$10924 37 


Total: 
700924,3697 


diul In: Decebal 15 Client: Delta SRL. 


Pine KIKI ji KALI 4 


Figura 19.13. Raportul Tn mod previzualizare 


cod fiscal: 123456 


Dacă se doreşte ieşirea din modul previzualizare prin program, se poate folosi metoda Hi de a 


obiectului raport. 


Exportul explicit al raportului - prin metoda ExportReport - poate avea loc în format HTML 
sau text (atât ASCII, cât şi Unicode!5). 

Observaţie: numărul şi aspectul paginilor nu concordă cu cele din modul previzualizare, 

deoarece exportul este bazat pe parametri specifici paginilor de text sau HTML, în timp ce 

previzualizarea depinde de parametrii imprimantei instalate. 


15 Set de caractere universal, ce permite reprezentarea semnelor alfabetelor nelatine. 
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în fine, imprimarea raportului necesită folosirea metodei PrintReport, care are patru 
argumente: 
> ShowDialog - afişarea dialogului Print, dacă este True; 
> Range - paginile de imprimat: 0 dacă se tipăresc toate, 1 dacă se imprimă anumite pagini; 
> PageFrom şi PageTo - dacă al doilea argument are valoarea 1, 
atunci trebuie 
specificate paginile de la ... pana la .... 
Astfel, linia de cod: 
drClientiFacturi.PrintReport False, 1, 1, 3 va avea ca efect tipărirea 
directă (primul argument — False) la imprimanta implicită a 
unui număr specificat de pagini (al doilea argument este 1), anume de la pagina 1 la 


pagina 3 inclusiv. 


întrebări şi răspunsuri 

Descrieti diferenţa dintre obiectele ADO şi DAO. 

Adevărat sau fals? Un obiect Command specifică bazele de date exploatate. 

Descrieti ierarhia obiectelor ADO. 

Care este rolul obiectelor Environment, Connection şi Command în crearea unui 


= 


PN. 


raport? 

Prezentati modalitatea concreta de lucru pentru a include intr-un raport date din mai multe tabele. 
in ce fel se specifica sursele de date intr-un obiect Data Report? 

Adevarat sau fals? Un obiect rpt TextBox se poate plasa in oricare zona a unui raport. 
Adevărat sau fals? Pentru a crea in raport un câmp calculat (o expresie matematică, de genul a+b) 
se foloseşte un obiect rpt Function. 

9. Care este metoda invocată pentru a afişa (vizualiza) un raport pe ecran? 


Pe SON 
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O aplicaţie cu erori (bugs în engleză) nu poate fi compilată (conţine erori de sintaxă) sau 
generează rezultate neaşteptate la execuţie (conţine erori de execuţie şi/sau erori logice). Erorile de 
sintaxă provin din scrierea eronată a unor cuvinte-cheie din limbajul de programare respectiv. Erorile 
de execuţie şi erorile logice sunt mai subtile (de exemplu, între două variabile s-a scris semnul în loc 
de semnul „*") — programul funcţionează numai în anumite condiţii ori funcţionează întotdeauna, 
dar rezultatele sunt neverosimile. 

Mediul Visual Basic include o componentă pentru depanarea aplicaţiilor, prin care o aplicaţie este 
testată, fiind semnalate şi localizate erorile de sintaxă în vederea corectării lor. Pentru detectarea şi 
corectia erorilor logice, aplicaţiile trebuie executate folosind date de test (seturi de date de intrare 
pentru care se cunosc dinainte valorile datelor de ieşire, astfel încât se pot efectua comparații între 
rezultatele execuţiei programului şi rezultatele scontate). 


Tipuri de erori 

Erorile de sintaxă (syntax error), sunt cele mai răspândite, dar şi cele mai simplu de corectat, întrucât 
Visual Basic le localizează şi îl avertizează pe programator automat (atunci când se apasă tasta 
Enter la sfârşit de rand) dacă este bifată opţiunea Auto Syntax Check (prin comanda Proj 


ect | Options cain figura 20.1). 


Editor Editor Format i General 1 Docking Environment | Advanced j 
~ Code Settings ----------------------- 


p 'jAuto-Syntax CNeqjj] f P  Autoindent 
B.equire Variable Dedaration p 

Auto yst Members P Auto Quick 

Info P Auto Data Tipg. 


Tab Width; !T~ 


"Window Settings -------------- ---- 


P Drag-and-Drop Text Editing 


p Default to Full Module View 
p £rocedure Separator 


OK Cance! 


Figura 20.1. Stabilirea opțiunii pentru depistarea automată a erorilor pg de sintaxă 
P 


i. în folclorul programatorilor circulă o legendă despre pierderea de către NASA a unei sonde spațiale, din cauza unei astfel de erori de calcul. 


Depanarea aplicaţiilor Visual Basic 


Dacă s-a activat această opţiune, Visual Basic îl informează pe programator atunci când a greşii printr-un 


mesaj de eroare ca în figura 20.2 


Yes 


1 (General) imain 


Figura 20.2. || T pam intzi As Im 


semnalare Sub maint) i 


sintaxă ga Dados Microsoft Visu A 


La 


astfel de A 
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Compile error: 
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făcut o 
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Mesaj de 
a unei erori de 


apariția unui 
mesaj, cel care 
înţelege că a 
eroare de 
a’ cris greşit un 
cheie, a uitat 
argument 


obligatoriu ori sa mchid paranteza sau ghilimelele etc. şi o poate corecta imediat. Visual Bas.c 
marcheaza cu o alta culoare textul linde apare eroarea Dacă nu este evidentă, Visual Basic va marca 
pnmul cuvânt care urmează după eroare. Deci o eroare de sintaxă din aceasta categorie trebuie căutată 
la cuvântul marcat de Visual Basic sau la cele dinaintea acestuia. Daca eroarea nu este corectată, 


mesajul se va afişa din nou atunci cand se lanseaza in execuţie sau cand 


L0,1O'âkif categorie*este cea a erorilor de execuţie (runtime errors) care apar atunci când o 


RE dna d 
[(Generali 3 Fain ZI 
Din, deiropartit As Single" Uffi2Et+S£E-i» 2»£_52 wee uien +- 
Sub maint) 
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End Sub 
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Payat 1 End J Debug J Nelp — 
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Figura 20.3. Exemplu de eroare la execuţie 
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Mesajul „Run-time error” este urmat de un număr care reprezintă codul erorii şi de un scurt mesaj 
explicativ (mai multe informaţii se pot obţine dacă se selectează butonul Help de pe dialogul cu 
mesajul de eroare). Eroarea exemplificată a apărut prin declararea, dar neinitializarea unei variabile 
care a rămas cu valoarea 0, ceea ce a condus la o împărţire la zero... 

De cele mai multe ori, continuarea aplicaţiei (butonul Continue) nu este posibilă (drept pentru 
care butonul respectiv este dezactivat), astfel că rămân două alternative: oprirea acesteia (End) sau 
depanarea ei (Debug). Prin clic pe butonul Debug, Visual Basic execută poziţionarea pe linia 
„împricinată”, după corectare fiind posibilă continuarea aplicaţiei (cu menţiunea că uneori modificările 
aduse pot solicita repomirea aplicaţiei). 

în fine, erorile logice nu pot fi remediate decât prin testarea programului, aşa cum am precizat mai 
sus. Seturile de date de intrare de test trebuie să fie cât mai diferite, pentru a se observa 
comportamentul aplicaţiei în diferite circumstanţe. La testarea în vederea depistării erorilor logice ne 
putem servi de instrumentele puse la dispoziţie de mediul Visual Basic, printre care şi depanatorul de 
programe. 


Depanatorul de programe (debugger) 


Este un instrument integrat in mediul de dezvoltare al aplicaţiilor Visual Basic, care ajută la 
identificarea erorilor din programe. Depanarea se bazează pe mai multe tehnici: 


supraveghere valorilor unor Sâriabile; 
execuţia opțională a unor portiuni ale programului. 


O ShtftF8 
GNE Ctri+Shift+F8 
Nach... Gtrlies 
AddWatch F9 
Ctrl+-Shift+F9 


Figura 20.4. Meniul Debug 
Meniul Debug este prezentat in figura 20.4, fiind utilizat la depanarea unei aplicatii. Daca la 
execuţia unei aplicaţii (modul runtime) se întâlneşte un punct de oprire, Visual Basic trece în modul 
de lucru break. Este util să precizăm că interpretorul Visual Basic poate lucra în trei moduri (afişate 
în titlul ferestrei curente): design (la proiectarea form-ului şi scrierea codului), runtime (la 
execuţie) şi break. 
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Când este uti! modul de lucru break? Atunci când aplicaţia are o eroare logică greu de depistat. 


Modul de lucru break menţine valorile variabilelor şi controalelor, astfel că se pot compara aceste 


valori intermediare (de la punctul de oprire stabilit) cu cele aşteptate, depistând mai uşor sursa erorii. 


în modul break se trece numai din modul runtime (întrucât initializarea şi atribuirea de valori se 


fee doar la execuţie). Trecerea se poate face în mai multe moduri: 


> 


comanda Run | Break, butonul Break din toolbar sau combinaţia de taste 
Ctrl+Break pe parcursul execuţiei, la momentul ales de programator; 

inserarea unui punct de oprire prin Debug | Toggle Breakpoint (sau F9) în faza de 
scriere a programului (modul design), pe linia la care utilizatorul vrea să oprească 
execuţia (se pot insera mai multe astfel de puncte); 


>> prin producerea unei erori ia execuţie, dacă se apasă butonul Debug la un mesaj precum cel 


din figura 20.3; 
^ prin opţiunea Debug | Add Watch, care defineşte o expresie - la execuţie, când 
aceasta devine adevărată ori îşi modifică valoarea, Visual Basic opreşte aplicaţia. 
Cel mai adecvat mod este prin definirea emẹx punctelor de oprire. Asa cum se observă in 
figura 20.5, linia la care este introdus un punct de oprire este evidenţiată de Visual Basic cu o 
altă culoare. Anularea punctului de oprire se face prin repetarea aceleiaşi comenzi. 


Date) 4- 1 
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sngSuma = txtSmna. Text sngRata 
= txtRata.Text / 1004 intlmrata 
= txtDur.Text 


HH3n9VaiV - mncssxata * ((1 +spgRata/12) * .intDurai-.a-1) / 
IsngRata = iT] ce ii 
txtValV.Text = Format (sngValV, 0") 
[SEE SSEREeea 
Figura 20.6. Afişarea valorii unei variabile 


în modul Break 


modul de lucru curent 


| 
dteDatinF amortizare 83 CDateftxtDataF>// | 
GBsngamortin = {(sngVali — sngvalR) / (intDurata * 12) 


‘determinare an 


, Date) + 1 


lunacalcul dteDatinF 
Figura 20.7. intreruperea executiei unui program 


La momentul intreruperii, programatorul poate verifica valorile diferitelor variabile sau controale 
utilizate in program. Spre exemplu, daca se executa clic pe variabila intDurata si se lanseaza apoi 
comanda Debug ! Quick Watch, se vor afişa informaţii despre această variabilă într-o fereastră 
ca în figura 20.8. Prin comanda Add, variabila se va adăuga în fereastra de dialog Watches, prin 
care se pot urmări modificările valorilor mai multor variabile din program. La orice moment al execuţiei 
se pot urmări valorile variabilelor adăugate în fereastra Watches. 

Spre exemplu, să presupunem că o variabilă are la finalul execuţiei o valoare incorectă, dar nu ştim 
exact unde se produce eroarea. în acest caz, se definesc puncte de oprire pe toate liniile de cod care 
modifică valoarea variabilei. Execuţia se va întrerupe în primul punct definit, moment în care se verifică 
valoarea variabilei, reluând apoi execuţia, până la următorul punct de oprire definit, unde se verifică din 
nou valoarea variabilei. 
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Quick Watch 


Content x 
Project 1.Form) cmdCalcul_Click 
Expression 
ntOurata 


Value 
5 


Watche: 


Fesoresson [vae [Tipe a coe 


To Orks Integer Formi cndCaly 


Figura 20.8. Fereastra QUick Watch 


Sau, dacă o variabilă nu ar trebui să depăşească o anume valoare sau nu ar trebui să aibă valori 
negative, se defineşte condiţia sub forma unei expresii în fereastra de dialog deschisă prin comanda 
Debug!Add Watch şi se selectează tipul de supraveghere dorit (Watch Type), ca în figura 20.9. 


Expression: 


Context 


| Procedure; |cmdCalcul_Click v 
rom OO 3 


| Project: Project! 


execuţia se opreşte când 
r Watch Type expresia este adevărată 
C Watch Expression 
© Break When Value is True 
C Break When Value Changes 


Figura 20.9. Fereastra Add Watch 


O altă modalitate de depistare a erorilor este execuţia pas-cu-pas a unei secvenţe, urmărind in 
permanenţă valorile şi logica de desfăşurare. După întreruperea la un punct de oprire, programatorul 
poate executa pe rând câte o instrucţiune, lansată prin comanda Debug I Step Into (sau F8). 
Visual Basic va marca luminos (pe fond galben) instrucţiunea executată. Execuţia pas-cu-pas se leagă cu 
urmărirea variabilelor cu Watches sau Quick Watch. 

Dacă execuţia pas-cu-pas ajunge la o procedură deja depanată, pentru care nu se doreşte acest mod 
de parcurgere, se dă comanda Debug I Step Over, care va determina execuţia normală a 
respectivei proceduri. De asemenea, dacă se doreşte ca de la un anume punct execuţia să continue 
normai până la sfârşit se dă comanda Debug 1 Step Out. 

Observaţie: în timpul unei execuţii pas-cu-pas programatorul poate adăuga punctele de oprire 

necesare, executând apoi normal aplicaţia, care se va întrerupe doar în punctele stabilite. 


Fereastra Immediate 


în20Atea de jos a ecranului Visual Basic se găscVisual Oasis Immediate care devine activă atunci când 
se execută clic pe suprafaţa ei sau prin View| Inunediate Window (ori Ctr1l+G), dacă nu este 
afişată pe ecran. în această fereastră programatorul poate introduce comenzi care sunt executate pe loc, 
pe linia următoare comenzii afişându-se rezultatul execuţiei ei. Aceasta este utilizată frecvent pe 
parcursul depanării unui program (este denumită şi fereastra de depanare). Spre exemplu, se poate cere 
afişarea valorii unei variabile, ca în figura 20.10. 


mmediate 


? dceDatinF £J 
11/11/99 
Been... 1 


Figura 20.10. Modul de lucru immediate 


Comanda utilizată pentru afişare în exemplul de mai sus este ? (cea mai simplă comandă de afişare). 
Se mai poate utiliza metoda Print (am fi putut scrie Print dteDatinF, cu acelaşi efect). 
Programatorii preferă adesea fereastra Immediate în locul ferestrelor de tip Watch. Aceasta se 
poate redimensiona după dorinţă. în plus, ea păstrează toate comenzile introduse şi rezultatele afişate de 
fiecare dată. 

Mai mult decât atât, la scrierea codului aplicaţiei se poate introduce o comandă de afişare, al cărei 
rezultat să apară în fereastra Immediate. Pentru asta se apelează la obiectul Debug, ca de exemplu: 

Debug.Print "Varsta:"; intVarsta, "Coeficient:"; sngCoef 

Astfel de instrucţiuni se vor intercala in punctele „sensibile” ale aplicaţiei. Afişarea elementelor 
specificate se va face (la execuţia procedurii în care s-a scris comanda) în fereastra Immediate, şi nu 
pe form sau la imprimantă. Se pot utiliza toate argumentele specifice obiectului Printer (vezi 
Capitolul 18). 


Metode avansate de tratare a erorilor în programele Visua! Basic 


Un deziderat al oricărui programator este obţinerea unei aplicaţii cât mai robuste. în acest scop, se au în 
vedere atât prevenirea apariţiei unor erori de sintaxă sau de execuţie prin testarea şi depanarea 
corespunzătoare a aplicaţiei, cât şi includerea unor modalităţi de acţiune în cazul apariţiei de erori în 
diferite scenarii din faza de exploatare. 

Aceste ultime opţiuni sunt realizabile dacă se prevăd în aplicaţie secvenţe de cod specializate în: 

> tratarea erorilor „native” Visual Basic; 

> tratarea erorilor provenind de la servere de baze de date (dacă s-a conceput o aplicaţie cu baze de 


date client-server la care s-a realizat conectarea prin mecanismele ODBC sau OLE DB); 
> tratarea erorilor provenind de la controale ActiveX; 


> alte categorii de erori. 
în fiecare dintre aceste cazuri, baza este instrucţiunea On Error, destinată captării şi manipulării 
erorilor dintr-o procedură sau funcţie Basic. Reamintim formatele acesteia: 


On Error GoTo <linie> 
On Error GoTo 0 
On Error Resume Next 


Daca instructiunea On Error (care se scrie de regula la inceputul procedurii) lipseste, atunci este in 
uz mecanismul implicit  desemnalare aerorilor: se raportează eroarea (cod de 
eroare, descriere textuală, eventual locul unde s-aprodus), după  careexecuţia programului 
încetează. S-a văzut că, în varianta execuţiei de test, se poate apela depanatorul, printr-un buton 
corespunzător din fereastra cu mesajul de eroare. Este posibil ca prin depanare să se poată corecta 
eroarea. Dar dacă proiectul este compilat în variantă . exe, atunci nu ne mai putem baza pe depanator. 

Dacă s-a folosit primul format On Error GoTo <linie>, atunci execuţia „sare” la secţiunea de 
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cod indicată prin argumentul linie, care este fie un număr (în maniera tradiţională de numerotare a 
liniilor), fie un text urmat de două puncte (care se mai numeşte şi „labei” - nu are nimic de-a face cu 
controlul Labei). Această secțiune se scrie la sfârşitul procedurii ale cărei erori se vor tratate, fără a 


omite plasarea uneia dintre instrucţiunile Exit Sub, Exit Function, Exit Property înaintea 
sa (în caz contrar, codul de tratare a erorilor se va executa şi atunci cînd nu s-a înregistrat vreo eroare!). 
De remarcat că această secţiune nu este ea însăşi o procedură sau funcţie (cum este cazul în alte 
limbaje), dar poate apela o procedură sau funcţie scrisă separat. In cadrul acestei secţiuni programatorul 
poate codifica acţiunile de executat în cazul apariţiei unei erori, folosind în acest scop proprietăţile 
obiectului global Err (tabelul 20.1). 

Tabelul 20.1. Proprietatile obiectului Err 


Proprietate Semnificatie 
Number Codul erorii 
Description Descrierea textuală a erorii 
Source Numele modulului în care s-a produs eroarea 
LastDLLError Codul ultimei erori rezultate dintr-un apel al unei biblioteci DLL 
HelpFile Numele fisierului de Help care poate oferi explicatii in cazul erorii respective 
HelpContext1lD Identificatorul sectiunii din fisierul de Help care priveste eroarea respectiva 


Figura 20.11 arată porţiunea din documentaţia MSDN care se poate folosi pentru a afla detalii despre 
codurile erorilor si descrierile acestora. 

Metoda Err.Clear se poate apela in scopul stergerii din memorie a ultimei erori, dupa tratarea 
acesteia (dacă n-o face programatorul, are loc o ştergere implicită la sfârşitul procedurii). 

Metoda Err . Raise <cod>, <sursa>, cmesaj > permite programatorului să-şi genereze o 
eroare Visual Basic (în scopul testării unei proceduri) sau să creeze propriile erori. Codurile erorilor 
definite de utilizator nu trebuie să se suprapună cu cele standard (se recomandă folosirea de coduri în 
intervalul 513 ... 65535, iar dacă scriem o rutină de erori pentru un control-utilizator - precum cele pe 
care le vom discuta în Capitolul 21 atunci 


vom genera erori în plaja vbObjectError' + 513 ... vbObjectError+65535, 
pentru a le disocia de alte erori apărute în aplicaţie). 
Al doilea format, On Error GoTo 0, dezactivează orice mecanism de tratare a 
erorilor pentruprocedura respectiva. in acest format, O(zero) nu are nimic in 
comun cu 


numerotarea liniilor practicată în versiunile vechi de Basic. Astfel, dacă există o linie cu numărul 0, nu 
înseamnă că execuţia se va relua de fiecare dată de la acea linie. 
Al treilea format, On Error Resume Next, instruieşte programul să ignore eroarea survenită 


şi să continue execuţia de la linia următoare celei care a produs eroarea. 


Active Subset } 
lyisual Jasje A ~Tj | 


Contents | Index j Search | Favorite* j j 


B IIJ Visual Studio 6.C Documentation B UJ 
Visual Basic Documentation JQ Visual Basic 
Start Page © Visual Basic Documentation Map 
3+j A What's New in Visual Basic 6.0 SE) 
ti Getting Started with Visual Basic 6.0 Sj 
^ Lising Visual Basic O to Reference 
;+ A Language Reference Ei ^ 
Controls Reference E ^ 
Wizards and Add-Ins L-ii I^j 


Ttappable Errors 
202 ^ Corey Ppgiaigravege Errors + ^ 
Hiscellaneous Visual Basic Errors !.+] ^ 
OLE Container Control Errors :+. A RDO 
Errors 
^ ActiveX Control Errors 
Additional Information j 


Figura 20.11. Aici se găsesc informaţii despre erorile tratabile în Visual Basic 


Atenţie! Efectul instrucţiunii On Error Resume Next nu se propagă prin apelul de 
proceduri. Cu alte cuvinte, dacă avem o procedură apelată şi una apelantă şi dorim această modalitate 
de tratare a erorilor, instrucțiunea On Error Resume Next va trebui să figureze în ambele 
modale. 


Instrucţiunea Resume <linie> se utilizează în tratarea erorilor pentru a relua prelucrarea de la o 
linie de program specificată (prin număr sau etichetă), în loc de a trece la instrucţiunea imediat următoare 
celei care a cauzat eroarea, ca Resume Next. 

Codul din figura 20.12 nu prezintă utilitate în sine, deoarece semnalează eroarea, dar nu dă 
posibilitatea intervenţiei utilizatorului pentru a o remedia. Pentru a-i da acestuia posibilităţi de acţiune, 
este util a scrie în secţiunea de tratare a erorilor o structură alternativă (Select Case) care să 
diferentieze şi să trateze erorile după codul lor. 
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Option Explicit: 
Private Sub Form Load 
Dim strLinie As String On Error GoTo erori 
Open "c:\faranume.txt" For Input As #1 While Not EOF(1 
Line Input #1, strLinie 
Debug.Print strLinie 
Uend Close Exit Sub erori: 
MsgBox "Eroare nr. " £ Err.Number & _ 
in modulul " & Err.Source Q ee N 
Err.Description, vbExclamation, "Eroare" 


il End 
End Sub 


Jsjl ____i Eroare nr. 53 in modulul Project 1: File not found 


Resume Deschidere End If 
204 Else Visual Basic 
End End If 
Case 52 'bad file name; or number 
's-a Incercat citirea dintr-un fişier inexistent 


< 


MsgBox "Fisierul, cu numărul 1 nu exista", vbExci-ama t ier:, 


"Eroare" 
End Case Else 
‘orice alta eroar ste semnalata 
MsgBox "Eroare nr. " & Err.Number & 
" in modulul " & Err.Source & VOEO 
Err.Description, vbExclamation, "Eroare" 


End Select End 
Sub 
Conform principiilor programării modulare, acest cod ar putea fi fragmentat astfel: 
> modulul apelant 
Dim strNumeFisier As String 
Private Sub Form Load() 
Dim strLinie As String On Error GoTo 
Erori strNumeFisier = 
"c:\faranume.txt" 
"de aici se va relua deschiderea fişierului 
'daca se va furniza un nume adecvat Deschider 
Open strNumeFisier For Input As #1 


'se afiseaza continutul fişierului in fereastra Immediate 


While Not EOF{1) 
Line Input #1, strLinie Debug.Print strLinie 
Wend 
Close 
Exit Sub 
‘aici se apeleaza procedura de tratare a erorilor 
TratareErori 
End Sub 
> modulul apelat 
Private Sub TratareErori () 
Select Case Err.Number Case 
53 "file not found 


If vbYes = MsgBox("Nu 'exista fişierul " &,strNumeFisier & _ 


incercati?", vbYesNo + vbQuestion, 


"Fişier inexistent") Then strNumeFisier 


InputBox ("Mai introduceti odata " _ 

& "numele si calea fisierului.", 

"Deschidere fişier") 

' utilizatorul nu doreşte continuarea If 
strNumeFisier = "" Then End 
Else 
' utilizatorul a specificat alt fişier 
Resume Deschidere End If 


Else 
End 
End If 
Case 52 'bad file name or nuraber 

*s-a incearcat citirea dintr-un fisier inexistent 
"Fisierul cu numărul 1 nu exista", _ vbExclamation, " 
End Case 


sg30x 


Eroare" 


" 


Mai 


‘or 


Else 
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ice alta eroar 


MsgBox "Eroare nr. 


End Select 


" 


End Sub 


" 


ste semnalata 
& Err.Number & 


in modulul " & 
Err.Description, 


Err.Source & 
vbExclamation, " 


„m & 


Eroare" 
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Astfel, procedura TratareErori poate fl apelata din oricare punct al modulului de tip form. 


Se observă că declaraţia Dim strNumeFisier as String a fost mutată în secţiunea General, 


pentru a fi accesibilă şi procedurii TratareErori. 


TratareErori cu Public Sub TratareErori, 


Dacă mutăm procedura într-un modul standard şi înlocuim declaraţia Private 


Sub 
extindem valabilitatea mecanismului pentru 


orice modul al proiectului (nu uitaţi să declaraţi variabila st rNume Fişier ca publică, în secţiunea 
General a modulului Standard!) . 


obiectului Err): 


Sub 
Ini 


Sub 
On 
"sa 
if 


Err 


Dim 
Exi 


Sg 


End 


Sub 
Ini 
End 
Sub 
On 


lin 


Exi 


Ini 


bry 


main () 
tializeMatrix 0, 


Initialize 
Error GoTo 

presupunem 
linii >10 then 


„Raise 514, 


atrix 
ErrcrHandler 
ca vrem sa aiba max 10 linii, 
Err.Raise 513, 
"Prea multe linii!" 
"TnitializeMatrix", 


1000 


(linii as Integer, 


End Sub 


if coloane >1 


"Prea multe coloane!" 
coloane) 


Matrix 
t Sub 


(linii, 


Box "Eroare nr. 
Ww i: n W & 


Sub 


Instructiunile prezentate se pot combina intre ele sau cu una dintre instructiunile 
Resume Next orl Resume <linie>, ca în exemplul următor: 


main () 
tializeMatrix 0, 
Sub 


= 


Error GoTo 


ii > 10 Then 


" 


ErrorHandler: 
'simpla afişare a mesajului de eroare 

& Err.Number & n & 
Err.Source 


1000 


InitializeMatrix (linii As Integer, 
ErrorHandler 

"sa presupunem ca vrem sa aiba max 10 linii, 
Err.Raise 513, 


"Prea multe linii!" 
If coloane > 10 Then 
"Prea multe coloane!" 


t Sub Reluare: 
tializeMatrix 0, 


orHandler: 


1000 


Err. 


Raise 514, 


Exit Sub 


"simpla afişare a mesajului de eroare 


Select Case MsgBox ("I 
Err.Description & "in" & 


Eroare nr. 


Ww & 
Err.Source, 


0 then 


Bie, 


Err.Number & 


vbAbortRetrylgnore + vbExclamation, "Eroare...") 


coloane as Integer) 


10 coloane 
"TnitializeMatrix", 


Description & _ 


coloane As Integer) 


10 coloane If 
"TnitializeMatrix", 


"TnitializeMatrix", 


"s 


Mai jos este prezentat un exemplu care foloseşte erori generate de utilizator (cu metoda Raise a 


Case vbAbort 
206End 'terminare imediata Visual Basic 
Case vbRetry 
Resume Reluare 'nai incearca o data 
Case vblgnore 
Resume Next 'renunta la initializare 
End Select End Sub 
Nuclcul limbajului Visual Basic dispune de facilitatea de a raporta, pe lângă erorile intrinsece, şi 
erorile „străine”: 
> cele ale sistemului de operare au coduri între 0 şi 512; 
> cele generate de mecanismul Automation (schimb de date cu alte aplicaţii) au 
coduri negative; 


> cele generate de ODBC sau alte conexiuni cu bazele de date client-server au de 
asemenea coduri negative; în plus, proprietatea Err. Description începe cu 
codul de eroare nativ (spre exemplu, pentru o eroare provenind din baza de date Oracle, această 
descriere arată astfel ORA-O 14 03: no data found). 
Ultimul exemplu reprezintă o rutină generalizată de tratare a erorilor. Aceasta se poate include într- 
un modul standard. 
Public Sub HandleError (Number As Long, Description As String, 
Source As String, Optional ExtraArguments As Variant] 
"explicaţia argumentelor: nr. erorii, descrierea, sursa, 
‘optional un argument suplimentar (de exemplu un nume de fişier) 
Select Case Number 
Case Is < 0 'eroare non-Basic 
Select Case Left (Description, 3) 


Case "ORA” 

‘aici se vor trata erori dintr-o baza de date ORACLE 

‘la care exista o conexiune directa (OLE DB) 

Case "ODBC" 

‘aici se vor trata erori dintr-o alta baza de date 


‘la care exista o conexiune ODBC 

Case Else 

‘aici se vor trata alte erori 

MsgBox "Eroare non-Visual Basic”, vbOKOnly + 
vbExclamation End Select Case Is > 0 'eroare Visual Basic 


MsgBox "Eroare Basic nr. " & Number 
Description & vbCrLf & "in " & Source 
End Select End Sub 


întrebări şi răspunsuri 

1. Care erori sunt cel mai uşor de depistat? 

2. Dacă ia execuţia unei aplicaţii apare o casetă cu mesajul deeroare „disk drive does not 
exist”, ce tip de eroare s-a produs? 


3: Care erori sunt cel mai greu de găsit? 

4. Cum este indicat modul de lucru curent al programului? 

5. Ce este un punct de întrerupere? 

6. Care sunt cele 3 lucruri care se pot face la întâlnirea unui punct 

de întrerupere? 

7. Care este cel mai rapid mod de a vizualiza valoarea unei variabile 
la un punct de oprire? 

8. Care este modalitatea de afişare a valorii unei variabile în fereastra Immediate? 

9. Se poate afla in Visual Basic în ce constă o eroare? 


10. Adevărat sau fals? Instrucţiunea On Error Resume Next duce la ascunderea tuturor 
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erorilor. 


Capitolul 21 PROGRAMARE ORIENTATĂ PE 
OBIECTE 


Se spune despre Visual Basic că nu este un limbaj de programare complet orientat pe obiecte. Dacă 
ar fi să efectuăm o demarcaţie strictă în lumea limbajelor de programare, atunci numai Smalltalk şi Eiffel 
sunt 100% orientate obiect, iar C++ şi Java sunt 99% orientate obiect. Totuşi, trebuie să fim mai puţin 
categorici şi să admitem că majoritatea caracteristicilor de orientare-obiect sunt implementate în Visual 
Basic. Iar începând de la versiunea 7, aflată la momentul scrierii acestor rânduri în fază de testare beta 2, 
vom putea spune fără rezerve că noul Visual Basic este orientat pe obiecte, cel puţin dând crezare 
anunţurilor firmei Microsoft. 


Clase, obiecte şi alte concepte fundamentale 

Considerată una dintre tehnicile moderne de programare, programarea orientată-obiect este bazată pe 

paradigma obiect-mesaj. Fundamentul acestei paradigme este constituit din obiecte; fiecare obiect 

răspunde la o colecţie determinată de mesaje. în programarea procedurală, subrutinele sau funcţiile se 

apelează unele pe altele pentru a returna anumite date sau pentru a modifica nişte parametri de intrare- 

ieşire. în modelul obiect-mesaj, în loc de date de tip scalar (număr, şir de caractere etc.) sau în loc de 

vectori ori matrice de date avem un obiect capabil să proceseze cereri cunoscute ca mesaje. Aceste 

mesaje: 

> pot cere obiectului să efectueze „ceva” şi să returneze un rezultat; 

> pot modifica starea obiectului (adică pot modifica valorile unor proprietăţi ale obiectului). 
Programarea orientată-obiect a pornit de la conceptul de lip abstract de dată (TAD). Multe limbaje 

(chiar procedurale) oferă posibilitatea utilizării unor tipuri de date compozite, definite de utilizator (user- 

defined types, pe scurt UDT). De exemplu, chiar în versiunile mai vechi de BASIC putem crea un tip de 

dată definit de utilizator, numit articol, cu declaraţia Type . . . End Type, de care dispune şi Visual Basic. 

' aceasta este o declaraţie de tip in BASIC Private 

Type PC 

Procesor As Variant 

emorie As Long Video As 

Integer Pret As Currency 

DataCumpararii As Date 

End Type 


I 

‘acum declaram date de tipul definit mai sus dim 

CalculatorulMeu as PC, CalculatorulTau as PC 

‘atribuim valori unora din proprietăţile variabilei CalculatorulMeu 


CalculatorulMeu.Procesor="Pentium III" 
falculatorulMeu.Mernorie-13'1072 'un calculator cu 128 MB de RAM 


'atribuim valori unora din proprietățile variabilei CalculatorulTau 
CalculatoruITau.?rocesor="Power G4" 


CalculatorulMeu.Memorie=260536 'un calculator cu 256 MB de RAM 

Tipul dc dată prezentat mai sus permite încapsularea într-o singură variabilă a câtorva date 
elementare. Toate variabilele create pe baza acestui tip (CalculatorulMeu, 
CalculatoruITau) vor avea deci structuri identice. Dacă ne imaginăm că la un tip abstract de dată 
precum cel definit mai sus se adaugă şi operaţii de realizat asupra datelor (operaţii pe care le vom numi 
metode), obţinem o clasă care poate fi reprezentată ca în figura 21.1. Ce altceva este o clasă decât o 
mulţime de entităţi cu proprietăţi şi comportamente similare? Dacă am considera clasa Persoana am 
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putea face cu privire la ea următoarele afirmaţii: orice persoană are un nume, o dată de naştere, o anumită 
înălțime, culoare a părului, culoare a ochilor etc. Acestea sunt proprietăţile persoanei şi ele iau valori 
diferite de la un individ la altul. în mod similar, orice persoană se mişcă, doarme, vorbeşte... Este vorba 
aici despre metode. 


Clasa PC 
oe 
fr 
al O Procesor 
/ a Memorie , AMG 
/ | a. Video Proprietăți 
/ N Oo Pret 
N o DataCumparari 
SU ate pararii 
A ee 
\ 
| % / a  CalculVechimeCalculator(DataCalcul) 


| NG UpgradeMemorie( MemorieNoua) 
= Metode 


Figura 21.1. Posibilă reprezentare a clasei PC 


In procesul de abstractizare propriu programării calculatoarelor vom reţine de la fiecare entitate doar 
proprietăţile şi metodele care prezintă interes pentru problema studiată. 

Clasa în acceptiune informatică nu va fi folosită niciodată ca atare, ci va servi drept arhetip pentru 
entităţi numite instanțe ale clasei sau mai simplu obiecte, care sunt nişte variabile. Aceste variabile create 
pe baza clasei (obiectele) nu vor avea doar structuri identice, ci şi comportamente identice. Structura 
constă într-un ansamblu de date din tipuri elementare, comportamentul este definit de secvenţe de 
program (proceduri şi funcţii) care manipulează aceste date elementare. La ,,suprafata” unei clase se 
„văd” numai acele date şi proceduri/functii pe care programatorul său a dorit explicit să le facă „vizibile”. 
Se ascunde astfel reprezentarea internă a obiectului de mediul înconjurător şi se protejează (de modificări 
accidentale ori neautorizate) algoritmii interni (procedurile) care implementează comportamentul 
obiectului!S. Pentru a desemna aceasta, în teoria programării se utilizează sintagmele ascunderea 
informaţiei (Information hiding) sau încapsulare (encapsulation). 

Interfața unei clase constă în numele şi tipurile proprietăţilor, precum şi în numele şi descrierea (sub 

aspectul argumentelor) metodelor dorite a fi „vizibile”. Implementarea, în schimb, reprezintă codul 

asociat metodelor, invizibil din exteriorul clasei. 
Principalele concepte din programarea obiectuală sunt recapitulate ori prezentate succint în cele ce 

urmează: 

> clasă, o ,,familie” de obiecte de acelaşi tip. Clasele nu sunt utilizabile în sine, ci prin 
obiectele pe care le definesc. De la o clasă la un obiect din acea clasă se ajunge prin 
mecanismul de instanțiere. O clasă constă în interfață şi implementare; 

> comportament”, modul în care acționează şi reacţionează un obiect; 

> constructor, metodă implicită a unei clase, folosind la crearea de obiecte din acea clasă; 

> derivare sau subclasare: crearea de clase pe baza altor clase, formând ierarhii (clasa student şi clasa 
salariat sunt subclase ale clasei persoană). Clasei derivate i se adaugă proprietăţi şi metode noi; 

> destructor: metodă implicită a unei clase, folosită pentru distrugerea obiectelor din acea clasă; 


16 Algoritmii respectivi pot fi rescrişi ulterior pentru a adapta comportamentul clasei altor utilizări. 


> identitate: proprietate care identifică unic obiectul, indiferent de valorile atributelor sale; 

> 210nplementare: codul care defineşte modul désuahBasjsentru fiecare dintre metodele obiectului; 

> instanţă: orice obiect creat pe baza unei anumite clase; 

> interfață: definiţia clasei, adică numele clasei, numele şi tipurile de date ale proprietăţilor, numele 
metodelor, numele şi tipurile de date ale argumentelor metodelor (dacă există); 

> metodă: acţiune de executat asupra unui obiect. Poate consta în atribuirea de valori unor proprietăţi 

(variabile de instanță), în efectuarea unor calcule, a unor operaţii de intrare-ieşire etc. Este 

răspunsul la un mesaj sau la un eveniment. Poate fi de tip public ori privat. Metodele definesc 

comportamentul unui obiect. Ele se pot asimila funcţiilor din programarea procedurală, cu 
precizarea că unul dintre argumentele funcţiei este întotdeauna obiectul asupra căruia se aplică; 

> moştenire: posibilitatea de a crea clase derivate din clase numite „de bază”, clasa derivată poate 
utiliza proprietăţile şi metodele clasei de bază; 

> obiect: entitate cuprinzând atât date, cât şi acţiuni de executat asupra datelor; 

> polimorfism: posibilitatea de a avea metode cu acelaşi nume, moştenite din clasa de bază, dar cu 
comportamente diferite în funcţie de clasa derivată; 

> proprietate (atribut): caracteristică a unui obiect, face parte din structura acestuia; se declară în clasa 
de care tine obiectul. Proprietăţile iau valori la instantiere (prin funcţia constructor) sau pe parcursul 

„vieţii” obiectului. Pot exista proprietăţi publice sau private. Valorile lor Ia un moment dat definesc 

Starea unui obiect; 
> stare: combinaţie a valorilor atributelor unui obiect; 
> supraincarcare (overloading): o formă de polimorfism; 
> suprascriere (overriding): posibilitatea de a defini alt comportament al unei metode în clasa derivată 

faţă de clasa de bază (reimplementarea sau rescrierea metodei). 

Reproşurile aduse limbajului Visual Basic versiunea 6 în comparaţie cu programarea obiectuală 
sunt legate de mecanismul mai puţin facil prin care se implementează moştenirea (interface inheritance - 
moştenirea prin interfeţe - este singurul mecanism viabil de implementare a moştenirii în Visual Basic). 

Ştim deja că Visual Basic utilizează multe obiecte: oricare dintre controale şi chiar form-ul sunt 
tratate astfel. Până acum am lucrat cu obiecte în Visual Basic fără să ştim prea multe despre ele. Vom 
aborda în continuare unele aspecte de detaliu privind obiectele în mediul Visual Basic. 


Obiectele-sistem 
Să considerăm spre exemplu obiectul Printer, care utilizează metoda Print pentru a tipări la 
imprimantă, într-o instrucţiune de genul: 
Printer.Print Tab(25); "Situatie debitori" 

sau obiectul Debug, care permite afişarea informaţiilor cerute în fereastra Immediate, prin aceeaşi 
metodă Print: 
Dim intCota as Integer IntCota-19 
Debug.Print "intCota este intCota 

în ambele exemple este vorba despre obiecte care se delimitează de scopul propriu-zis al aplicaţiei 
proiectate - nici imprimanta, nici fereastra Immediate nu fac parte din aplicaţie; sunt mai degrabă 
partajate între toate aplicaţiile Visual Basic, de aceea ele sunt reprezentate ca obiecte-sistem. Dacă 
Debug face referire la fereastra Immediate, care e una singură, obiectul Printer nu se referă la 
o imprimantă anume, ci la imprimanta curentă din Windows. 

Deci un obiect-sistem este un obiect definit implicit în Visual Basic care nu este legat de o aplicaţie 
anume (sau de scopul acesteia). De obicei acest obiect este unica instanţă a unei clase. 

Obiectele-sistem sunt predefinite, spre deosebire de un buton de comandă, care devine obiect după ce 
este inclus pe un form (adică devine o instanţă a clasei CommandButton). 

Tabelul 21.1 include toate obiectele-sistem predefinite pe care le putem folosi în aplicaţii. 
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Tabelul 21.1. Obiectele-sistem şi metodele lor 
Obiect Descriere Proprietăţi şi metode notabile 


APP aplicaţia curentă | exEName retumează numele aplicaţiei; 

Path oferă calea directorului în care este salvată aplicaţia; 
Title indică titlul formului de start al aplicaţiei; 
Previnstance indică, prin True sau False, dacă vreo altă 
instanţă (copie) a aplicaţiei rulează la momentul respectiv. 
Clipboard | zona de memorie | Metoda Clear şterge conţinutul clipboard-ului; 


tampon GetData redă imaginea stocată; 
(clipboard) din GetFormat reda formatul obiectului din clipboard; 
Windows GetText redă textul din clipboard; 


SetData copie o imagine in clipboard; 

SetText copie o porţiune de text in clipboard; 

Operatiile de selectare sunt realizate prin metodele SelStart, 
SelLength, SelText. 


Debug fereastra Metoda Prinţ afişează informaţii în fereastra Immediate (nu 
Immediate poate fi utilizată în aplicaţiile compilate .exe). 
Screen ecranul FontCount redă numărul de fonturi ce pot fi utilizate pe 


utilizatorului | ecranul curent. Fonts conţine o listă cu toate fonturile posibil 
de utilizat. Height indică lăţimea, în twips, a ecranului. 
Obiect Descriere Proprietăţi fi metode notabile 


MousePointer arată forma cursorului pe ecran. Width indică 
lungimea, în twips, a ecranului. 


Printer imprimanta Oferă suport pentru tipărirea la imprimantă. Multe proprietăţi sunt 
curentă similare celor ale obiectului Screen. 


Aceste obiecte sunt frecvent utilizate pentru a afla diferite informaţii. Spre exemplu, instrucţiunea de 
mai jos atribuie variabilei strCaleNume o valoare care indică numele fişierului, ca şi calea de 
căutare. Calea este relativă la directorul în care se află proiectul: 

strCaleNume=App.Path & "\vinzari.mdb" 


Clase intrinsece Visual Basic si folosirea lor in programe 

Obiectele pe care le creăm în cadrul aplicaţiilor sunt membri ai unei anume clase. Spre exemplu, 
clasa butoanelor de opţiune (OptionButton) defineşte proprietăţile, evenimentele şi metodele care 
definesc iniţial orice buton de opţiune. Ulterior se pot modifica valorile proprietăţilor obiectului, dar el 
rămâne totuşi membru al clasei „buton de opţiune”. 

Obiectele care se caracterizează prin atribute vizuale (form-uri, butoane, liste etc.) se pot crea fie în 
modul bine cunoscut, prin trasare cu ajutorul-mouse-ului, fie prin instrucţiuni specifice. 

Declararea variabilelor de tip obiect se face cu ajutorul instrucţiunilor Dim, Private ori 
Public (la fel cu orice tip de variabilă): 
Dim objOrice As Object. 
Dim frmUnForm As Form Dim cmdUnu as ComrnandButton 

Tipul Object de mai sus reprezintă un obiect generic, pe când tipurile Form si 
ComrnandButton semnifică apartenenţa la clase bine definite. 

Instrucţiunea Dim nu creează un obiect, ci o referinţă la un obiect (conţine adresa unde se află sau se 
va afla stocat un obiect). Atribuirea efectivă a unei valori acestei variabile se face ulterior, pornind de la 


un obiect existent, cu instrucţiunea Set: 
Set frmUnForm=Forml 

Din acest moment, variabila frmUnForm va fi un sinonim al obiectului Forml, astfel încât o 
construcţie de felul: v? 
frmUnForm.Visible=False va avea acelaşi efect cu: 


Forml.Vis 


ible=False 


21Baca în declaraţia Dim se include şi cuvâvlialailBasibiew, atunci se creează o copie a unui obiect 
(clasa corespunzătoare suferă o instantiere). 
Observaţie: clasa (sau după caz un prim obiect din. clasa dorită) trebuie să fie definită în 
aplicaţie sau într-o bibliotecă, astfel: 


Dim frmAi 
Dim oXIAp 


tForm As New Forml 
p as New Excel.Application 


în primul caz, ne asigurăm că Forml există deja in proiectul nostru!’. in cazul al doilea s-a precizat 


biblioteca 


Excel drept container al clasei Application (nota pentru programatorii grăbiţi: fiţi 


siguri că înainte de a trece la lucru aţi activat „Microsoft Excel x. y 


17 Visual Basic nu poate crea instante ale propriilor clase de controale, ci numai copii ale unor instante deja create. Astfel, declaraţia Set 
Form=New Form nu va funcţiona, pe când Set Form=New Forml va funcţiona, cu condiţia să existe deja în aplicaţie un obiect 


Forml. 
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Object Library” în opţiunea Proj ect | References a mediului Visual Basic - vezi 
figura 21.2). Instanţierea clasei va avea loc la prima utilizare a variabilei de tip obiect, ca în 
exemplul: 


oXIApp.Visible=True 


aBUS Edi 
Available Ref erences: OK 

o Microsoft Data Report Designer 6.0 (SP4) Cancel 

Q Microsoft Data Source Interfaces Development 

o Microsoft Environment 6.0 Deveiopment Environment 6,0 

Q Microsoft Text Editor F m DHTML Page Runtime Library Browse.. 

Q\icrosoft 1,0 Dialog Automation Objects / Peer 

o Microsoft Direct Speech Recognition Direct Text-to-Speech 

Q Microsoft DiskQuota 1.0 DT DDS TypeLib 2 


O Microsoft Priority 

LI Microsoft Help 
U Microsoft I+j 

ORM ciosoft 

ME Exi 


i h 8.0 Object Library 
Q Microsoft H323Service Provider 1.0 Type Library 


fi Microsoft HTML Obiect Library 
Microsoft Excel 8,0 Obiect Library —=— -e m 


Location: C:\Prograrn Files\Microsoft Office\Office\EXCEL8,OLB 
Language: Standard 


Figura 21.2. Anumite clase se găsesc in biblioteci ce trebuie activate 


> Far) =o} xj pă 
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Figura 21.3. Execuţia unui program care creează copii ale unui nbiect 


Se poate proceda şi de o manieră diferită, utilizând atât comanda Dim, cât şi comanda Set. 
Astfel, următorul cod creează succesiv trei copii ale formularului Forml (vezi figura 21.3), care 
există deja în proiect. în acest caz, este posibilă declararea şi refolosirea unei singure variabile, 
frmAltForm: 
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Dim frmAltForm As Form Forml.Show For i = 1 To 3 


Set frmAltForm = New Forml 
frmAltForm.Left = 1000 * i 
frmAltForm.Top = 1000 * i 
frmAltForm.Visible = True 
frmAltForm.Caption = "Copia 
nr. " & i frmAltForm.Show 
Next i 


Parametri de tip variabila-obiect 
Putem transmite ca argumente ale unei proceduri nu doar variabile de tip scalar, ci si variabile de tip 
obiect (de exemplu controale): 


Private Sub Actiune(cmdBut As ComrnandButton) 
Select Case cmdBut.name Case "cmdAdauga" Then 


Case "cmdSterge" Then 


End Select End Sub 

Se pot defini şi proceduri mai generale, care să realizeze o operaţie - să zicem schimbarea culorii 
de fundal - pentru controale diferite (se poate transmite procedurii un obiect în general, şi nu un control 
anume). Se va declara argumentul As Object (clasă generică), în loc de a utiliza o clasă bine 
precizată: 
Public Sub SchimbaCuloare(objDePeForm As Object) 


Cum se identifica un obiect 


Apartenența unui obiect la o clasă poate fi testată în momentul execuţiei programului. Astfel, funcția 

VarType (nume variabilă) returnează un număr diferit după tipul variabilei (atenție: 

nume_variabila NU se va scrie între ghilimele). Dacă rezultatul acestei funcţii este numărul 11 sau 

constanta vbObject, atunci variabila este de tip obiect. Mai mult, funcţia TypeName 

(variabilă) returnează un şir de caractere care reprezintă clasa obiectului în clar, spre exemplu 

Form ori ComrnandButton. De asemenea, pentru testarea tipului unui obiect se mai utilizează 

blocul If TypeOf ... Is . ..,care este similar unei structuri alternative obişnuite: 

Sub CeFelDeControlEsteAcesta (MyControl As Control) 

If TypeOf MyControl Is ComrnandButton Then 

Debug.Print "Ati trimis un argument de tipul ComrnandButton." 

Elself TypeOf MyControl Is CheckBox Then 

Debug.Print "Ati trimis un argument de tipul CheckBox." 

Elself TypeOf MyControl Is TextBox Then 

Debug.Print "Ati trimis un argument de tipul TextBox." 

Else 

Debug.Print "Ati trimis un argument de un alt tip: "& _ 
TypeName (MyControl) ~ 

End If End Sub 

Distrugerea variabilelor-obiect 


Eliberarea memoriei de variabilele-obiect ce nu urmeaza a mai fi utilizate are loc automat la incheierea 
executiei blocului de program in care au fost declarate (daca sunt variabile locale) ori la incheierea 
executiei aplicatiei (daca sunt globale). Aceasta distrugere poate avea loc si explicit, prin instructiunea 
Set <variabila-obiect>=Nothing. Dacă la declararea variabilei s-a creat o referință la un obiect si mai 
există şi alte variabile care fac referință la el, obiectul respectiv nu va fi influenţat. Dacă variabila 
respectivă era singura cu referire la un obiect anume, atunci la distrugerea variabilei se distruge şi 
obiectul. Variabilele mai pot rămâne „fără obiect” şi dacă obiectul la care se refereau a fost între timp 
distrus şi/sau recreat prin alte instrucţiuni. Secvența de cod următoare prezintă un astfel de exemplu 
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(creat ca o procedură main). 
Option Explicit 
Dim DB As Database, RS1 As Recordset, RS2 As Recordset 
Sub Main () 
Set DB = OpenDatabase("d:\program filesV &_ 
"microsoft visual studio\vb98\biblio.mdb") 
Set RS1 - DB.OpenRecordset ("SELECT * FROM authors") 
Set RS2 = RSI ' acum atat RSI cat st RS2 ' sunt 
referinte la acelasi obiect Recordset ' parcurgem 
recordset-ul indicat de RS2 ' si afisam numele autorilor 
in fereastra Immediate With RS2 
While Not .EOF 
Debug.Print .Fields(1).Value 
,MoveNext 
Wend 
End With 
Debug. Print W---------- l e 
RS1.Close 'acum am inchis atit RSI cit si RS2 
"redeschidem RS1 cu alta interogare SQL: 
Set RS1 = DB.OpenRecordset ("SELECT * FROM authors WHERE " & 
" author LIKE 'LV") 
With RS2 1 incorect, RS2 nu mai constituie referinta 
' la nici un obiect Recordset ' 
corect ar fi "With RS1" 
While Not .EOF 
Debug.Print .Fields(1).Value 


-MoveNext 

Wend 
End With 
RS1.Close 
RS2.Close ‘incorect, RS2 nu mai constituie referinţa 

‘la nici un obiect Recordset 

DB.Close 
Set RSI = Nothing 
Set RS2 = Nothing "corect, aceasta referința 


‘este "in aer" si se poate renunţa la ea 
Set DB = Nothing 
End Sub 
în fragmentul de sus sunt două greşeli ce fac programul inutilizabil şi pe care le-am evidenţiat prin 
comentarii si cu caractere bold. Astfel, initial variabilele RS1 si RS2 reprezintă acelaşi obiect de tip 
Recordset, dar dată fiind închiderea recordset-ului, ambele variabile rămân fără obiect. Se 


recreează apoi variabila RS1 deschizând un recordset diferit, dar variabila RS2 rămâne în continuare o 
referinţă necunoscută (arată o zonă de memorie unde nu se află nimic), deci orice utilizare viitoare a 
variabilei RS1 este permisă, pe când utilizarea variabilei RS2 nu. Programul va funcţiona dacă se 
corectează liniile marcate. în plus, deoarece se folosesc obiecte de tip Database şi Recordset 
create prin cod, nu uitaţi referinţa la biblioteca „Microsoft DAO x.y Object Library”. 


Colecţii şi liste (arrays) de obiecte 
Am mai făcut cunoştinţă cu listele (array-urile) de obiecte în care toate controalele au acelaşi nume, dar 
valori diferite pentru proprietatea Index. Stim care sunt beneficiile utilizării lor, mai ales în cazul 
execuţiei unei operații identice asupra unui mare număr de controale. 

O colecție înseamnă ansamblul tuturor obiectelor de acelaşi tip. Diferenţa este că într-un formular 
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se pot defini 2, 3 sau mai multe array-uri de etichete, dar colecţia de etichete este una singură. De fapt, 


numele generic al colecţiei este Controls si se referă la toate controalele încărcate pe o anumită 
componentă (form sau ceva similar). Tabelul 21.2 descrie cel mai utilizate colecţii Visual Basic. 
Tabelul 21.2. Câteva colecţii din VB 


Colecţie Descriere 
Controls toate controalele din aplicaţie 
Forms toate form-urile aplicaţiei 
Printers toate imprimantele instalate 


Dintre metodele care se pot utiliza pentru gestionarea colecţiilor, cele mai importante sunt cuprinse în 
tabelul 21.3. 


Tabelul 21.3. Câteva metode ale colecţiilor 


Metodă Descriere 
Add adaugă un element colecţiei 
Count redă numărul de elemente din colecţie 
Remove şterge elemente dintr-o colecţie 
Item refera un singur element al colectiei 
in Visual Basic pot fi definite propriile colectii de obiecte (Dim... As Collection), pentru 


care se pot utiliza metodele incluse in tabelul 21.3 - se va dovedi că aceste metode sunt utile mai ales 
propriilor colecţii decât celor predefinite de sistem (spre exemplu, nu va fi cazul să adaugăm ori să 
ştergem un element în colecţia Printers, deoarece Windows o creează pe baza listei imprimantelor 


instalate). 
Exemple de utilizare a colecţiilor de controale 


Dacă dorim' să ascundem toate controalele definite pe form, am putea seta valoarea proprietăţii 
Visible pentru fiecare dintre controale sau am putea defini o iteratie astfel: 


For intNrordine = 0 to Controls.Count-l Controls (intNrordine) 
„Visible = False Next intNrordine 


Sau, pentru a elimina formularea putin confuză a iteratiei de la 0 la n-l, se poate transforma bucla 


For Next într-o buclă For Each <variabila-obiect> In <colectie>, astfel: 
Dim ctlControl As Control For Each ctlControl In Controls 
ctlControl.Visible = True Next ctlControl 


Pentru a utiliza varianta For Each, este necesară folosirea unei variabile de tip Control care 
să rezerve spaţiu pentru fiecare control din colecţie. 


Pentru ca toate controalele să devină vizibile pe toate form-urile dintr-o aplicaţie, se vor utiliza 


ambele colecţii: Forms şi Controls în două structuri iterative imbricate. 
Dim ctlControlOarecare As Control Dim frmUnFormOarecare As Form 
For Bach frmUnFormOarecare In Forms = 
For Bach ctlControlOarecare In Controls 
If ctlControlOarecare.Visible=False Then _ 
ctlControlOarecare.Visible = True 
Next ctlControlOarecare 
Next frmUnFormOarecare 
Dacă dorim să adăugăm la momentul execuţiei aplicaţiei câteva obiecte pe un formular, vom folosi 
metoda Add a colecţiei Controls: 
Private Sub Form load) 
Dim cmdZero as Object, cmdBtn(2) As Object 'adaugam un buton de 
comanda 'care aparţine clasei Ccmmand3utton 'din biblioteca VB 
"si al cărui nume intern devine cmdBtnlnitial 
Set cmdZero = Controls.Add("VB.ComrnandButton", "cmdBtninitial") 
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With cmdZero 
„Visible = True .Width = 1800 


-Caption = "Butonul .initial" 
rratloViSatXx5" ' dr aPllCania FHS » x» Pr 20 
mmm 32 
[A Q 1 ' R vi A (I 34 
a 37 
asa 57 
jgxr 65 
lip 192 
With cmdBtn (i) 
„Visible = True 


-Width = 1500 .Top 
= 0 If i = 0 Then' 


„Left = 0 
Else 
‘aliniere relativ la butonul precedent 
„Left = crr,d3tn(i - 1) .Left + cmdBtn(i - 1) . Widt'h 
+ 50 End I f 
„Caption = "Buton nr. "Si 


End With Next i End Sub 
Rezultatul execuţiei acestei secvenţe de cod este redat în figura 21.4. 


OBSEf m - -ini xi 


Buton nr 0 Buton nr. 1 Buton nr. 2 j 


ulonul initial 


Figura 21.4. Adăugarea programatica a mai multor butoane 


Se conturează totuşi o întrebare, în definitiv logică: cum putem, enumerând colecţia Controls, 
să nu acţionăm decât asupra unei anumite categorii de controale? Soluţia constă în testarea fie a 
numelui, fie a clasei obiectului, fie a valorii vreunui alt atribut care prezintă interes. Spre exemplu, 
procedura următoare măreşte înălţimea tuturor obiectelor de tip CommandButton de pe un formular 
cu 10%. Celelalte controale sunt „lăsate în pace”. Dim ctlControlOarecare As Control For 
Each ctlControlOarecare In Controls If TypeName(ctlControlOarecare) = 
"CommandButton" Then 


ctlControlOarecare.Height = ctlControlOarecare.Height * 1.1 
End If 


Next ctlControlOarecare 


Crearea propriilor colectii 


Această operaţiune presupune declararea colecţiei (se utilizează cuvintele-cheie New Collection) 
şi apoi gestionarea ei de către programator, în mod similar colecţiilor predefinite. Pentru declararea 
colecţiei se scrie: 
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Public colColectieNoua As New Collection 


La fel ca în cazul variabilelor, declararea se poate face cu Dim (caz în care colecţia se poate utiliza 
doar în procedura în care a fost declarată, nu şi în alte proceduri), cu Private sau Public în 
secțiunea generală a unui modul, indicând disponibilitatea variabilei de tip colecţie la nivelul modulului 
sau al întregului proiect. Ar mai fi de menţionat că instrucţiunea Public mai sus utilizată declară o 
colecţie nouă, dar nu declară nici un membru al acesteia. 

Spre deosebire de array-uri, unde programatorul trebuie să aibă grijă de numărul elementelor 
declarate, o colecţie este mai ușor de gestionat. Atenţie însă, numărătoarea elementelor unei colectii 
porneşte de la 1, si nu de la 0, ca la liste. 

Modul de specificare a membrilor colecţiei, folosirea metodelor de adăugare si gestionare a unei 
colectii sunt exemplificate în continuare: 

Dim colUtilizBD As New Collection 
Dim intCtrl As Integer 


colUtilizBD.Add "Radu George" 
colUtilizBD.Add "Dudescu 
Sandra" colUtilizBD.Add "Albu 
Raluca" colUtilizBD.Add "Turcu 
Victor" colUtilizBD.Add "Ene 
Cristiana" 


' afiseaza colecţia 

For intCtrl = 1 to colUtilizBD.Count Debug.Prinţ 
colUtilizBD(intCtrl) & "este utilizator al BD." 
Next intCtrl 


1 colecţia conţine 5 persoane 
Debug.Print "Sunt " & Str (colUtilizBD.Count) & _ 
" utilizatori declaraţi ai BD. Mai adaug unul" 


1 adaugare utilizator nou colUtilizBD.Add "Ghica Adrian" 


' colecţia conţine acum 6 persoane 
Debug.Print "Sunt " & Str(colUtilizBD.Count) & " utilizatori 
declarati ai BD." 
Rezultatul executiei va fi: 
Radu George este utilizator al BD Dudescu 
Sandra este utilizator al BD Albu Raluca 
este utilizator al BD Turcu Victor este 


utilizator al BD Ene Cristiana este 

utilizator al BD 
Sunt 5 utilizatori declaraţi ai BD. Mai adaug unul. 
Sunt 6 utilizatori declaraţi ai BD. 


Am văzut cum se utilizează metoda Add pentru a adăuga elemente noi într-o colecţie, dar trebuie 
menţionat că, în varianta prezentată mai sus, Add permite doar adăugarea la 
sfarsitulcolectiei. Argumentele (toate opţionale) metodei Add elimină acest neajuns. Dacă 
folosim formatul complet: 

colectie.Add Item, Key, Before, After pentrua 

insera un element la inceputul colectiei se va scrie: 

colUtilizBD.Add "Ghica Adrian" Before:=1 

Primul argument, a cărui valoare este „Ghica Adrian”, se întâmplă să fie chiar argumentul Item. 


Nefiind furnizată o valoare pentru argumentul Key (al doilea), ci direct pentru al treilea argument 
Before, s-a recurs la tehnica argumentelor cu nume (named arguments) care permite ignorarea ordinii 
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de transmitere a argumentelor (nu uitaţi că se utilizează operatorul special de atribuire ":="). Al patrulea 
argument, After, nune 
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interesează la acest moment, el nefiind oricum compatibil cu Before, de aceea nu-i furnizăm nici o 


valoare. 

Metoda Remove permite ştergerea oricărui element din colecţie, indexul acestuia fiind obligatoriu. 
Metoda respectă următorul format: 

Colectie.Remove index 
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Am lucrat până acum cu obiecte si cu colectii, dar acestea au fost pentru noi adevărate „cutii negre”. In 
continuare vom vedea ce se găseşte în interiorul unei asemenea clase; noi suntem cei care vom crea 
clasa. 

Intr-o aplicaţie bancară vom opera cu o mulțime de conturi curente. Toate conturile sunt caracterizate 
in principal prin: numărul contului, numele titularului, valoarea soldului, moneda în care se exprimă. 
De asemenea, toate conturile se comportă la fel: putem depune o sumă într-un cont ori putem retrage o 
sumă de bani. Din punctul de vedere al programatorului, ar fi foarte greu să se prevadă câte un modul de 
program care să implementeze operaţiile de depunere (în speţă mărire a soldului), respectiv retragere 
(diminuare a soldului) pentru fiecare cont posibil. Cum putem şti dinainte câte conturi vom avea? 

Aici intervine abstractizarea proprie programării orientate-obiect: din moment ce toate conturile se 
comportă similar, de ce nu am vorbi despre clasa conturilor? Am avea ca proprietăţi notabile numărul 
contului, numele titularului, soldul si moneda, iar ca metode importante depunere, respectiv retragere. 
Multe alte metode şi proprietăţi ar putea prezenta interes în practică, dar din raţiuni de simplitate noi ne 
vom limita la acestea. în figura 21.1, cu ocazia discuţiei despre programarea orientată-obiect în general, 
am prezentat grafic clasa PC utilizând un formalism ad-hoc. De această dată vom simboliza clasa 
ContBancar printr-un formalism consacrat (cu explicațiile de rigoare, vezi figura 21.5). 


Numele clasei 


ContBdffcar 


NrCont 
NumeTitular >. Proprietăţi 
Sold 
Moneda 
Depune 
Retrage 
AJ. Metode 


Figura 21.5. Diagrama pentru clasa ContBancar 


Un model real în care să funcţioneze obiecte din clasa ContBancar ar implica mai multi actori, de 
exemplu obiecte din clasa Persoane, ca în figura 21.6. De menţionat că parantezele arată că este vorba 
despre instanțe ale claselor respective (o anume persoană depune bani într-un anumit cont). 
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(Persoana) Depune(l000000) (ContBancar) 


Figura 21.6. Interacțiunea a două obiecte 
In exemplul simplu pe care îl vom formula nu am considerat necesar a implementa si clasa 
Persoana, ci ne vom mulțumi a o simula prin acţiunile operatorului. 


Exemplu: clasa ContBancar 
Există mai multe modalități prin care se pot crea clase in Visual Basic; pentru moment ne vom rezuma 
la aceea in care, la un proiect existent, se adaugă module de cod de tip clasă' (mclass module). in 
exemplul din figura 21.7 avem un proiect de tip Standard EXE. 


Project - pjBanca 
IO 


m pjBanca (pjBanca) 
413 giHffs 

1PiJ 

S AN pe ja 


pjBanca Properties,:., 
I' Q Eprrn | '83 MDI 


Form j s2j Module 


! IM User Control | :S| ws Print... 
Property Page: Vv 
„Ip nn 

i A Dockable 
Add File... 


Hide 
Figura 21.7. Adăugarea unui modul de tip clasă într-un proiect existent 


Implicit, modulul adăugat se numeşte Class1, dar îl vom redenumi în ceva mai sugestiv, ca de 
exemplu ContBancar. Vom salva proiectul cu un numele pjBanca. în acest moment, clasa 
ContBancar este funcţională (se poate instantia), dar numai în interiorul proiectului care o 
găzduieşte. în formularul numit de noi frmTestCont am procedat la declararea unei variabile de tip 
ContBancar în secţiunea General (pentru a fi accesibilă tuturor procedurilor din form), asta 
deoarece vom folosi form-ul respectiv în strânsă legătură cu obiecte de tip ContBancar. în acest 
scop, consultaţi figura 21.8. 
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Figura 21.8. Declararea unei variabile de tip obiect din noua clasă creată 


Initializarea variabilei o vom face însă abia în procedura evenimentului Load, astfel: 

Set ContBancarl=New ContBancar 

Cuvintele-cheie Set și New sunt de-acum, sperăm, cunoscute. 

Din acest moment avem acces la proprietăţile şi metodele obiectului ContBancarl1?®. 
Problema este că încă nu am creat nici un fel de proprietăţi și nici metode. Pentru a înţelege mai 
uşor modul de lucru, vom porni de la declararea şi ulterior utilizarea unei proprietăţi, soldul. 

Cea mai simplă cale de constituire a proprietăţilor este declararea în modulul clasei (secţiunea 
General) a unor variabile publice: 

Public Sold As Currency 

Ulterior, putem testa funcţionarea obiectului ContBancarl folosind fereastra Immediate 
(Ctr1+G, dacă ati uitat), ca în figura 21.9. 


LN aa os SE = 2 

[Í Immediate 
set ContBancarl”iiew ContBancar 

ContBancarl.Sold=550000 ?cont.Banearl. 

Sold 550000 


Figura 21.9. Crearea unei instante a clasei si folosirea unei proprietati 

Cineva ar putea să protesteze spunând că, de vreme ce acest sold este o variabilă publică, el este 
vizibil peste tot în aplicaţie, deci ar putea fi modificat in mod intenţionat sau nu. Asa stau lucrurile. 
Dar, pentru a contracara această situaţie, nu avem decât să schimbăm declaraţia din Public în 
Private: 
"Public Sold As 
Currency Private Sold 
as Currency 


Din păcate, codul de mai sus nu va mai funcţiona, ci va apărea un mesaj de eroare, după cum se 
arată şi în figura 21.10. 


18 în ciuda denumirii „pretenţioase”, clasele reprezintă în orice limbaj tot nişte fragmente de cod, ca şi procedurile ori funcţiile. 
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[=f=«l 1 xj 
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y -"17,._. t\ Run-time error 4J 8: 
Set ContBancarl=nexor ContBancar Object doesn’t support this property or rnethod ; 
ContBancar | .Sold=55000G BCL AE Help i 
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Figura 21.10. încercare de a accesa o variabilă privată din exteriorul clasei 

Explicaţia este cât se poate de logică: variabilele private nu sunt vizibile decât în interiorul 
modulului de program în care au fost definite, iar acest modul nu este în nici un caz fereastra 
Immediate! 

în acest caz, ce este de făcut? Să ne întoarcem la situația anterioară nu este tocmai calea 
optimă, ştiute fiind „capcanele” variabilelor publice. Modelul obiectual implementat în Visual Basic 
permite declararea proprietăţilor prin utilizarea procedurilor-proprietate. Există trei tipuri de declaraţii 
pentru proceduri-proprietate: 


> Property Get - obţine valoarea unei proprietăţi; 

> Property Let - 
atribuie o valoare unei proprietăţi (de tip elementar); 

> Property Set - atribuie o valoare unei proprietăţi de tip 
obiect. 

Rațiunea pentru care există două feluri de proceduri-proprietate pentru atribuire tine de 


faptul că unele proprietăţi sunt de tip obiect (de exemplu proprietatea Font a unui control Labei) 
şi atribuirea de valori acestui tip de proprietate necesită crearea unei referinţe la obiect cu cuvântul- 
cheie Set (în timp ce pentru atribuirea unei valori unei variabile de tip scalar se foloseşte cuvântul- 
cheie Let, care oricum este optional): 


Variabilă de tip scalar Variabilă de tip obiect 
Dim x As Integer, Y As Integer Dim prs As Persoana Set 
X=100 prs=New Persoana 
Let y=10 


Dacă se doreşte ca o proprietate anume să poată fi atât citită, cât si scrisă, atunci este necesară o 


pereche de proceduri Property Get /Property Let (Property Set). 

Folosiţi PROCEDURI-PROPRIETATE când Folosiţi VARIABILE PUBLICE când 
Proprietatea este Read-Only * Proprietatea se poat 
Proprietatea are un domeniu clar de auto-valida (este un tip 
valori si necesită validare de dată elementar) 
Valorile în afara unui domeniu sunt] * Proprietatea poate 
valide pentru proprietatea însăşi, suporta orice valoare 
dar cauzează erori in altă parte din} * Proprietatea este de tip 
codul obiectului String şi nu se are în 
Bchimbarea valorii unei proprietăţi vedere nici o restricţie 
induce modificări vizibile în starea cu privire la lungime ori 
obiectului (spre exemplu, valoare 
modificarea valorii proprietăţii 
Visible) 
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Dacă se doreşte doar citirea, se va implementa doar procedura Property Get; dacă se 
doreşte doar scrierea, se va implementa doar Property Let ori Property Set. Astfel se 
asigură o flexibilitate imposibil de atins prin variabilele publice. 

Observaţii: nu consideraţi că folosirea variabilelor publice reduce din dimensiunea codului, 

fiindcă nu ar mai fi nevoie de Property Get/Let. De fapt, la declararea unei variabile 

publice, Visual Basic creează automat o procedură Let șiuna Get, ambele ascunse. 

Pentru a crea proprietatea sold, vom modifica codul modulului-clasă astfel încât el să arate 
astfel: 

"declararea unei variabile pentru stocarea 
"temporara a valorii proprietatii Sold 'la 
acest nivel, Dim este similar cu Private 
‘deci putem folosi Dim, 

"desi consacrata este declaraţia 

Private Dim mSold As Currency 


Public Property Let Sold(SoIdNou As 
Currency) mSold = SoldNou End Property 


Public Property Get Sold() As 
Currency Sold = rr.Sold End Property 

Evident, declaraţiile Property... sunt prefixate cu specificatorul Public, pentru a fi vizibile 
din exteriorul clasei. Se observă cât de mult se aseamănă partea de regăsire a valorii (Property 
Get) cu o funcţie Basic. Partea de atribuire (Property Let) seamănă mai mult cu o procedură 
cu un singur argument. 


Codul din figura 21.10 va deveni în aceste condiţii perfect funcţional. 
^ j |(Oecldrdtions) 
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Figura 21.11. Invocarea asistentului VB Class Builder 


Asistentul Class Builder 


O cale comodă de creare a proprietăţilor şi metodelor o constituie apelarea unui asistent 
specializat, Class Builder, fie prin opțiunea de meniu Project|lAdd Class Module, 
fie printr-un clic dreapta pe rQ9ramarp orient ă pe obiecte ferestrei Project Navigat@ 
după cum se arată in figura 21,11. Fereastra principală a utilitarului Class Builder este redată in 
figura 21.12. Se observă clasa ContBancar şi proprietatea Sold a acestei clase, care au fost 


definite deja într-o etapă anterioară. 
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Figura 21.12. Fereastra principală a utilitarului 
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Figura 21.13. Adăugarea unei proprietăţi 
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Vom adăuga proprietatea NumeTitular, prin comanda File | New 1 Property... 


ori prin clic pe butonul marcat cu (1) în figura 21.13. Va trebui întâi să selectăm clasa dorită 
(ContBancar) în meniul arborescent din partea stângă. 

Căsuţa de opţiune Default Property permite declararea încă din această fază a unei 
singure proprietăţi ca si implicite. Ati remarcat acest lucru la controalele Visual Basic, spre exemplu in 
cazul controlului Labei proprietatea Caption este implicită, astfel încât într-un program 
instrucțiunile Labell. Caption="Salut" şi Labell="Salut" au exact acelaşi efect. 
Putem proceda similar pentru proprietatea Sold a clasei ContBancar. 

După această operațiune, se va acţiona opţiunea File | Update Proj ect, dupăcare 
se continuă cu alte proprietăţi sau wizard-ul se poate închide. 

Wizara-ul va genera tot codul necesar pentru implementarea proprietăţii, astfel: in 


secţiunea General a modulului-clasă: 
‘local variable (s) to ho 1-d property value (s) 
Private mvarNumeTitular As String 'local copy in 
sectiunea de subrutine: 
Public Property Let NumeTitular (ByVal vData As String) 
‘used wnen assigning a value to the property, on the left side of 


an assignment. 
"Syntax: X.NumeTitular = 5 mvarNumeTitular = vData End Property 


Public Property Get NumeTitular() As String 
‘used when retrieving value cf a property, on the right. side of an 
assignment. - 
"Syntax: Debug.Print X.NumeTitular NumeTitular - mvarNumeTitular 
End Property 

Wizard-ul plasează in cod şi comentarii (inciusiv privind sintaxa folosită la utilizarea obiectelor) 


care sunt utile începătorilor. 
După această operaţie vom încerca, în fereastra Debug, să executăm codul din figura 21.14. 


imrnediaie* — 


set ContBancarl =new ContBancar 

ContBancar1.NumeTitular="Popescu Vasile" 

ContBancarl.Sold=100000G 

?ContBancar1.Sold 

1000000 

?ContBancar1.NumeTitular 

Popescu Vasile — 
1 aT 


Figura 21.14. Obiectul ContBancarl si folosirea proprietăţilor sale 


Celelalte proprietăţi (NrCont, Moneda) se declară similar. Atenţie la tipurile de date! 

Adăugăm în continuare metoda Depune, utilizând tot instrumentul Class Builder. De 
data aceasta vom face clic pe butonul marcat cu (2) în figura 21.13 sau vom acţiona opţiunea de 
meniu File | New... Method (după ce am selectat clasa corespunzătoare în arborele din 
stânga ferestrei VB Class Builder). Vom urma paşii marcați cu 1-2-3 in figura 21.15. 

Câteva explicaţii privind argumentul (argumentele metodei): opţiunea ByVal înseamnă 
transmiterea valorii argumentului (metoda poate să modifice în corpul ei această valoare, deci dacă se 
transmite 1000000 se poate transforma fără probleme în 1250000), iar opţiunea ByRef, care este 
implicită în Visua! Basic, semnifică transmiterea argumentului prin referinţă, adică în loc de a 
transmite, să zicem, valoarea 1000000, se transmite adresa de memorie unde se află stocată 
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a Mee Gna acest caz, metoda nu poate să modifice valoarea argumentului). 
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Figura 21.15. Adăugarea unei metode care are un argument 


Dacă se activează căsuţa Optional, argumentul metodei poate fi omis - nu este cazul aici - 
cum ar fi să mărim soldul cu o valoare nulă? Metoda poate ea însăşi să retumeze un tip de dată 
(similar oricărei funcţii Visual Basic) - vezi căsuţa Return Data Type din fereastra marcată cu 2 
- dar aici nu este cazul, întrucât prin metoda Depune nu ne propunem să aflăm ceva, ci doar să 
incrementăm soldul. 

lată codul metodei, rezultat în urma închiderii wizard-ului: 

Public Sub Depune (ByVal SumaDepusa As Currency) 

End Sub 

Va trebui ca noi să completăm acest cod cu comportamentul dorit pentru metoda Depune 
(wizard-ul nu are de unde să îl anticipeze), în speţă: 

Public Sub Depune (ByVal SumaDepusa As Currency) 

Sold = Sold + SumaDepusa End Sub 

Putem verifica felul în care funcţionează metoda Depune prin scrierea următorului cod în 
fereastra Immediate. Rezultatele se observă după liniile care încep cu un semn de întrebare 
(comanda de afişare în această fereastră). 
set ContBancarl =new Cor.t3ar.car 
ContBancarl,NuineTitular="Popescu Vasile" 

ContBancarl.Sold=1000000 ?ContBancarl.Sold 
1000000 ContBancarl.Depune (500000) 
?ContBar.carl. Sold 1500000 
Vom adăuga şi metoda Retrage, alcărui cod va fi după cum urmează: 
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Plic Sub Retrage (ByVal SumaRet rasa Ks Currency) 


Sold = Sold - SumaRetrasa End Sub 

După cum ati observat, metodele care nu returnează nimic sunt declarate ca si Sub (proceduri), 
pe când cele care returnează ceva vor fi de tip Function (funcţie). Astfel, o ipotetică metodă 
AflaSold ar trebui să obțină soldul contului, care este declarat ca si Currency, deci tipul de 


dată returnat va trebui să fie Currency: 


Public Function AflaSold() As Currency 
AflaSold=Sold 


End Function 


O astfel dc metodă nu este necesară din moment ce proprietatea Sold a fost declarată cu 
specificatorul Public. 

Observatie: VB Class Builder nu permite stergerea unor proprietati sau metode deja 

adăugate. in caz ca dorim acest lucru, trebuie să identificăm in cod si să stergem manual 

porțiunile „responsabile” (Property, Sub, Function) cu aceste proprietăţi ori metode. 


Utilizarea clasei ContBancar 
Presupunând acum că această clasă este gata, vom renunţa la testele în fereastra Immediate si 


vom proceda la perfecţionarea interfeţei grafice prin utilizarea formularului frmTest din figura 
21.16. 


| - 


-inîxil - Project - pjBanca 
T 
| pjBanca - frmTest (Form CD fHjO 
[a sais DE ceace da bud 1 EhJ&l pjBanca (pjBanca.vbp 
| EBSB^EăX - EhfiS Forms 


8. + tii-rTest-fTesfeCori 
MAD OIDs iii ci ceia tite fads iata tata Eee casă -l-rti Class Modules 
la ContBancar (Cont 


f ^ Sold initial: +tabel4. . . ....... . 


: Depune J Retrage J 


| Noul sold:- LabelS >= m:e m<. m- 


Codul aferent procedurilor-eveniment din formular este redat integral mai jos: 
Dim ContBancarl As ContBancar Dim cySuma As 
Currency 
Private Sub cmdOperatii_ Click(Index As Integer) 
"se preia de la tastatură o sumă 'care se 
„converteşte in tipul Currency 
cySuma = CCur (InputBox ("Introduceti suma:", 
"Depunere/Retragere")) 's-a apasat Depunere sau Retragere? 
Select Case Index Case 0 'depuner 
ContBancarl.Depune (cySuma) 
Case 1 'retrager 
ContBancarl.Retrage (cySuma) 
End Select 'actualizare sold Label6 = ContBancarl.Sold End Sub 


Private Sub Form Load) 

"crearea unei instante a clasei contBancar Set ContBancarl = New 
ContBancar ‘initializare With ContBancarl 

-NumeTitular = "Popescu M. Raluca" 


Figura 21.16. Formular pentru testarea clasei ContBancar 
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T: abel2 = .NumeTitular .Sold = 0 Label4 = .Sold 
Label6 = .Sold End With End Sub 
Considerând clasa creată mai sus, s-ar putea simți nevoia unor reguli de validare. Astfel, ar trebui 
să împiedicăm posibilitatea depunerii unei sume negative, ca şi a retragerii unei sume mai mari decât 
soldul la un moment dat. Este mult mai convenabil să întreprindem aceste verificări şi validări în 
codul-sursă al clasei decât în programele care vor utiliza obiecte din această clasă; astfel, o dată 
scrise procedurile de validare, ele vor funcționa la fel pentru toate obiectele. Această reutilizare a 
codului este specifică programării orientate- obiect şi are multe avantaje. Unul dintre ele este acela că, 
dacă ulterior se schimbă ceva în condiţiile de validare, modificarea trebuie efectuată doar în clasă, 
iar clasa respectivă trebuie redistribuită celor care au utilizat-o în programe. 
Observaţie: Trebuie să subliniem aici un principiu de bază: o dată clasa „terminată”, putem 
modifica implementarea (codul metodelor) de câte ori dorim, dar nu este indicat să modificăm 
interfaţa (numele proprietăţilor, numele şi argumentele metodelor). într-adevăr, imaginati-va în 
postura de programator lucrând cu clasa ContBancar, a cărei implementare („bucătărie”, într- 
un limbaj mai puţin, ba chiar deloc academic) nu vă priveşte. Colaboratorul dumneavoastră, pe 
care clasa aceasta „îl priveşte” deoarece el a programat-o, modifică „peste noapte” codul metodei 
Depune. Nici o problemă, din moment ce tot ceea ce ne interesează pe noi din metoda Depune 
vizează numele acesteia şi argumentul SumaDepusa. Dar dacă modificarea a vizat cumva 
numele metodei Retrage care se cheamă acum CereBani? Evident, în acest din urmă caz 
va trebui să revizuim codul programelor-sursă care utilizau vechea metodă 
Retrage. Nu-i nici comod si nici 100% fară erori, nu-i asa? lar acesta este un caz simplist, dar 
să mergem mai departe cu scenariul: imaginati-va că Microsoft modifică de la versiunea 6 la 
versiunea 7 sintaxele tuturor functiilor din Visual Basic. Ce vor trebui să facă programatorii? Să-l 
sune pe Bill Gates... 
Revenim la metodele clasei noastre. Putem adăuga procedurile de validare în codul metodelor 
Retrage, respectiv Depune, care vor arăta acum astfel: 
Public Sub Depune (ByVal SumaDepusa As Currency) 
If SumaDepusa < 0 Then 
MsgBox "Nu puteti depune o suma negativa!", 
_ vbOKOnly + vbExclamation, "Eroare" 


Else 

Sold = Sold + SumaDepusa 

End If End Sub 

Public Sub Retrage(ByVal SumaRetrasa As Currency) 

If SumaRetrasa < Sold Then 

MsgBox "Soldul contului este insuficient!", 
vbOKOnly + vbExclamation, "Eroare" 


Else 
Sold = Sold - 
SumaRetrasa End If End Sub 


Compilarea unei biblioteci de clase 
Clasa creată anterior are însă un inconvenient: pentru a fi folosită in alte proiecte decât pjBanca, 
ar trebui ca modulul-clasă ContBancar să fie inclus în fiecare din proiectele respective. Există 
însă o soluţie mult mai elegantă, ce constă în compilarea clasei sub formă de bibliotecă. în figura 
21.17 se observă configuratiile de proiect care permit construirea de biblioteci de componente: 

> componente de cod (obiecte invizibile) sau biblioteci de cod (foste OLE Automation Servers): 

ActiveX DLL (1)sau ActiveX EXE (2); 
> un control (obiect vizibil) de un tip personalizat: ActiveX Control (3); 
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> un document asemănător cu un form, capabil de a fi executat într-un browser Web: ActiveX 
document (EXE (4) sauDLL (5)). 
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Figura 21.18. îndepărtarea unui modul-clasa implicit (stânga) şi adăugarea unuia existent de pe disc 
(dreapta) 

Deoarece clasa ContBancar nu are nici un fel de atribute vizuale, vom alege tipul de proiect 
ActiveX DLL (marcatcu (2) în figura 21.17). Initial, acesta prezintă un unic modui-clasă, vid, 
numit Classl. Deoarece noi avem modulul ContBancar creat din etapa anterioară, vom 
îndepărta modulul Classl după cum se arată în figura 21.18 stânga. 

Vom continua prin adăugarea modulului ContBancar, ca în figura 21.18 dreapta. Se va 
modifica apoi valoarea proprietăţii Instancing la 5 - MultiUse, astfel încât orice aplicaţie 
proiectată ulterior să poată crea instanţe ale clasei. Denumim apoi proiectul, al cărui nume va deveni 
numele bibliotecii. Urmează compilarea bibliotecii, prin opţiunea de meniu File | Make 
<numeproiect>. dll. 

Problema de securitate. Daca lucrati sub Windows 2000 si sunteti un utilizator din 

grupul ,normal” Users, este posibil ca la sfârşitul etapei de compilare să apară o interdicţie de a 

scrie în Registry (vezi figura 21.32 şi rezolvarea oferită acolo pentru problema drepturilor de 

acces). 

Vom avea în final o bibliotecă numită cIsContBancar, în care se va găsi o clasă numită 
ContBancar. Pentru a utiliza această clasă, vom reveni la proiectul pjBanca pe care l-am creat 
potrivit indicatiilor din paginile precedente. Din acest proiect vom îndepărta modulul ContBancar 
(dacă mai este acolo), deoarece a devenit între timp redundant, în schimb actuala clasă 
ContBancar se regăseşte în altă parte şi pentru a o putea folosi este nevoie să adăugăm o 
referință în proiect, prin opţiunea Project | References (vezi figura 21.19). Cum 
probabil biblioteca noastră nu se găseşte în listă, vom da clic pe butonul Browse 
fişierul cIsContBancar. dll. 


. şi vom căuta 
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Available References: OK 


o CCrsWpp 1.0 Type Library Cancel 
: |__| CertCli 1.0 Type Library 
U CertMgr 1,0 Type Library 


o CFtpWpp 1,0 Type Library Qcic Browse... 
1.0 Type Library 

Q Cifre2Litere +! 

pa oaseN Priority 

QCMProps 1,0 Type Library Q jd Help 


COLBCAT 1.0 Type Library -Z 
COM + 1,0 Admin Type Library [j 
COM MakeCab 1,0 Type Library 
CJCOM+ Services Type Library * 
".CornExp1 .QTvpe Library 


+l 


Location; D:\Utilizatori\ProjecteVB\Teste\clsContBancar.dll 


r clsContBancar---------- ----- --------------------- 


Language: Standard 


Figura 21.19. Adăugarea referintei la biblioteca clsContBancar 
Problemă de securitate. Este posibil ca, o dată ajunşi în direftorul unde ştiţi că ati salvat 
varianta compilată a bibliotecii, să nu vedeţi nici un fișier cu extensia . dll. In acest caz 
verificaţi parametrii de afişare a fişierelor sistem şi ascunse. Acești parametri sunt stabiliţi în 


Windows Explorer. Pentru Windows 98 şi 2000, se apelează din meniul Tools | 
Folder Options... al programului Explorer dialogul numit chiar Folder Options. 
Aici, opţiunea Do not show/Show 

> hidden f iles and folders decide dacă fișierele ascunse (marcate cu atributul 


Hidden) sunt vizibile în ferestrele Explorer (sau în ferestrele de tip CommonDiaiog - 
cum este şi fereastra Open). De asemenea, opţiunea Hide protected operating 


system files poate influenţa găsirea sau nu a acestor fişiere. Pe alte versiuni de Windows 

(cu sau fără integrarea browser-ului Internet Explorer) aspectul ferestrei, modul de afişare a ei şi 

formulările opţiunilor sunt diferite. Pentru a vedea fișierele .DLL, considerate de Windows ca 

fisiere-sistem, va trebui activată opţiunea de afişare a fisierelor-sistem. O soluţie rapidă o 

constituie tastarea numelui si a extensiei (cIsContBancar . dll) direct în dialogul 

Open. 

Putem executa din nou proiectul pjBanca. El trebuie să se comporte ca şi când clasa 
ContBancar ar fi definită in chiar interiorul său. 

Ca exerciţiu, încercaţi să realizaţi o aplicaţie similară proiectului pj Banca. Executati ambele 
proiecte simultan (în două instante ale mediului Visual Basic) şi observați cum ele partajează clasa 
ContBancar (notă pentru programatorii grăbiţi: fiţi siguri că înainte de a trece la lucru ati activat si 
pentru noul proiect cIsContBancar în opţiunea Proj ect | References). 


Controale definite de utilizator 


Presupunem că într-o aplicaţie avem nevoie de mai multe căsuțe de text (controale TextBox) cu 
următoarele trăsături: 
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+00 stare: 
> culoarea textului (ForeColor): implicit roșu, cu posibilitatea modificării de către 
dezvoltatorul aplicaţiei; 
aspectul textului (Font): Arial, Italic, 9 pt; 
şablon (DataFormat): ###,##0.00; 
o etichetă plasată in stânga căsuţei de text, care să permită introducerea opţională a unui 
text explicativ; 
299 comportament 

> validare (Validate): să poată fi introduse doar numere între 0 si 999999999. Stabilirea acestor 

proprietă ţi şi comportamente nu este o misiune dificilă, dar devine 
problematică atunci când este vorba de câteva zeci de astfel de căsuțe, asa cum e cazul într-o 
aplicaţie de mare întindere. lar dacă ulterior ne dăm seama că trebuie permise doar numere între- 
999999999 si+999999999, modificările vor trebui reluate... 

Soluţia ar fi crearea unui control cu toate aceste atribute, numit de exemplu TextBoxSpec şi 
memorarea lui într-o bibliotecă în scopul reutilizării. Demersul ar fi similar celui de la exemplul 
ContBancar, dar din cauza aspectului vizual vor apărea câteva deosebiri. Una foarte importantă 
este tipul de bibliotecă în care se memorează o astfel de clasă: nu va mai fi vorba despre configuraţia 
de proiect ActiveX DLL, cidespre ActiveX Control (marcată cu cifra 3 în figura 21.17). 


Exemplu: controlul TextBoxSpec 

Se pune în discuţie acum modul în care vom crea toate atributele şi metodele acestui control. Astfel, 

e bine să știm că Visual Basic oferă trei căi pentru crearea unor controale definite de utilizator: 

> crearea unui control ex nihilol programatorul trebuind să prevadă inclusiv cum si când se 
desenează acesta (e vorba despre interceptarea şi tratarea evenimentului Paint). Un bun 
exemplu în acest sens este un control care oferă efecte vizuale, spre exemplu un buton care se 
preface în praf şi dispare când se execută clic pe el ori un element care se colorează aleator 
precum unele bannere din paginile Web etc. Pentru a face aceasta veţi avea nevoie de bune 
cunoştinţe de desenare în Visual Basic; 

> îmbunătăţirea unui control existent - de exemplu controlului TextBox standard i-am putea 
schimba culoarea, formatul de afișare si am putea trata corespunzător evenimentul 

LostFocus. Am obţine astfel ceva convenabil scopului enunțat în exerciţiul precedent, dar 

rămâne nerezolvată problema textului însoțitor; 
> ajungem astfel la a treia posibilitate, crearea unui control nou prin combinarea mai multor controale 

standard. în cazul de fata aceasta pare cea mai indicată modalitate. Ati intuit deja că va trebui 
să combinăm un control TextBox şi un control Labei. 

Aceste elemente le vom plasa în cadrul unui modul UserControl (vom folosi în continuare 
denumirea „control-utilizator”) care este „bancul de lucru” pentru astfel de clase vizuale. Controalele- 
utilizator pot fi create în cadrul unui proiect de tip Standard EXE (Project! Add User 
Control sau clic-dreapta în fereastra Project Explorer), fiind compilate o dată cu acesta. 
Dezavantajul rezidă în imposibilitatea de a folosi un astfel de control în alte proiecte, decât prin 
copierea modulului său. Putem contracara acest neajuns prin crearea proiectelor de tip ActiveX 
Control, cu o configuraţie ce permite compilarea separată a controlului (controalelor) create de 
utilizator în biblioteci de componente (faimoasele fişiere cu extensia . OCX). Astfel controlul devine 
„portabil”. Includerea sa într-un viitor proiect va avea loc prin opţiunea de meniu Proj ect | 
Components..., exact ca în cazul controalelor neintrinsece (revederi spre edificare capitolul 
referitor la bazele de date). 

Vom începe prin crearea unui nou proiect în configuraţia ActiveX Control. Acest tip de 


proiect conţine initial un control-utilizator cu numele implicit UserControll. Vom schimba numele 
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acestui control în TextBoxSpec. După cum se observă şi în figura 21.20, acest control-utilizator 


se prezintă ca un formular care are mai puţine atribute (de exemplu, nu are bară de titlu). La rândul lui, 
proiectul a fost redenumit în ControaleUtilizator, nume care va deveni automat şi numele 
implicit al bibliotecii în care vom păstra clasa TextBoxSpec (şi eventual alte clase cu menire 
similară) - numele bibliotecii mai poate fi schimbat chiar în momentul compilării. 

Pe suprafaţa controlului-utilizator putem plasa câte controale constituente dorim. Vom alege 
controale intrinsece sau controale din biblioteci (.OCX) adăugate cu opţiunea Pro j ect | 
Components .... Partea interesantă este că, dacă vom reuși implementarea acestei clase, ea 
însăşi va putea ulterior fi inclusă în alte proiecte (cu aceeaşi opţiune Proj ect | Components 
...). Pentru controalele respective vom modifica in mod corespunzător valorile unor proprietăţi. Astfel, 
pentru căsuţa Textl vom stabili aliniere la dreapta, font Arial de culoare rosie etc. Vom alinia 
controalele Labei 1 şi Textl şi ulterior vom reduce dimensiunile controlului-utilizator de la cele 
implicite la o arie care să încadreze exact cele două controale constituente. 


EIO;CD 


B j|$? ControaleUtilizator (Controaleutili: 
B User Controls 
.. TextBoxSpec (TextBoxSpec. ctl) 


[a] 7 = -. sasansissa wnbk 


(TextBoxSpec UserControl j 


Alphabetic | Categorized | 


Figura 21.20. Proiect de tip ActiveX Control 


Este nevoie însă si de o validare a valorilor introduse în caseta de text, pe care o vom implementa 
în procedura evenimentului Validate. Atenţie la valoarea proprietăţii Causes Validation 
a aceluiaşi control Text 1: ea trebuie să aibă valoarea True pentru ca evenimentul Validate 
să survină; altfel, întreaga procedură de validare este dezactivată. 

Un fragment din codul-sursă aferent acestui eveniment Validate, împreună cu aspectul controluiui- 
utiiizator (după ajustare) sunt prezentate în figura 21 21. 
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NOL i. . 


Aici e textul Dv. al 1000000 m 


Labei 1 V Textl 


Ip JT] j Validate 


Private Sub Textl Validate (Cancel As Boolean) 
With Textl 
If Val[.Text) < 0 Or Val(.Text) > 999999999 Then 
HsgBox "Introduceti un număr pozitiv mai înic decât vbOKOnlyl 
+ vbExclamation, "Eroare" 
Cancel = True End If End With End Sub 


Figura 21.21. Controlul TextBoxSpec în curs de realizare 


Linia de program Cancel=True are rolul de a nu permite părăsirea căsuței de text atât timp cât 
valoarea introdusă nu respectă restricțiile impuse. 


Asistentul ActiveX Control Interface Wizard 


Dacă în etapa de proiectare putem modifica după dorinţă valoarea oricărei proprietăţi ori codul-sursă 
al oricărui eveniment de la controalele constituente, acest lucru nu va mai fi posibil după compilarea 
clasei. Presupunând că am dori modificarea culorii textului din căsuţa Text] ori chiar scrierea altui 
text decât cel implicit („Aici e textul Dv,”) în controlul Labell, vom constata că acest lucru nu este 
posibil. Aceasta deoarece, conform principiului încapsulării, vom percepe această combinaţie de 
controale şi cod-sursă ca pe o singură entitate, fără a avea acces implicit la componentele sale. Acest 
acces poate fi însă facilitat dacă adăugăm controlului TextBoxSpec noi proprietăţi, metode, 
evenimente care vor fi „conectate” cu proprietăţi, metode, evenimente ale unor anumite controale. 
Această „conectare” reprezintă de fapt mecanismul delegării, prin care se „expun” la nivelul controluiui- 
utiiizator diferite caracteristici ale controalelor constituente. 

Controalele-utilizator au în mod implicit câteva proprietăţi şi metode, dar acestea acoperă doar 
chestiuni de interes general: vizibilitate (Visible), initializare (User 
Control Initialize), activare-dezactivare (Enabled), desenare (User 
Control Paint), distrugere (UserControl Terminate), dimensionare, efectuarea unui 
clic, mutare etc. 

Este util să întocmim o listă a proprietăţilor şi metodelor pe care le-am dori implementate: 


Nume proprietate/metodă Ce reprezintă 
CausesValidation Textl.CausesValidation 
LabelCaption Labell.Caption 
Text Textl.Text 
TextDataFormat Textl.DataFormat 

Nume proprietate/metoda Ce reprezinta 
TextForeColor Textl.ForeColor 
Resize Redimensionează proportional 

controalele 


Vom începe cu evenimentul Resize. Imaginati-va că testăm controlul nostru pe un formular 


dintr-un proiect Standard EXE (vom vedea cum se face efectiv acest lucru ceva mai târziu). 
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* Aici e textul Dv 


pi Command! 


Figura 21.22. Redimensionarea controlului de tip TextBoxSpec (varianta 1) 


Intenţia noastră a fost de a face controlul puţin mai înalt (prin redimensionare cu mouse-ul), dar 
rezultatul nu a fost cel scontat (figura 21.22). Ar fi fost de dorit ca redimensionarea să aibă loc ca în 
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figura 21.23. 
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Figura 21,23. Redimensionarea controlului de tip TextBoxSpec (varianta 2) 
La astfel de rezultate se poate ajunge destul de lesne. Trebuie doar să adăugăm 
controlului TextBoxSpec următorul cod: 
> în secțiunea General se declară o variabilă auxiliară: 
Dim raport As Single 
> in procedura evenimentului UserControl Initialize (se va executa la crearea unei 
instante a controlului TextBoxSpec), se memorează raportul dintre lăţimea controlului 


Textl şi lăţimea întregului control. Ne va folosi mai târziu pentru redimensionarea 


proporţională a controalelor constituente: 
Private Sub UserCor.trol InitializeOo 
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raport = Textl.Width / 
UserControl.Width End Sub 
> în procedura evenimentului Resize: 
Private Sub 
UserControl Resizel™' ('Mj With 
Textl E 
.Height = UserControl.Height .Width 
= UserControl. Width * raport «Left = 
UserControl. Width - .Width End With 
With Labell 
.Hei, ght = UserControl. Height .Width = 
UserControl. Width - Textl.Width Enc With End 
Sub 

Vom scuti cititorul de prea multe comentarii, c vorba aici doar de puţină geometrie. Ati remarcat 
folosirea denumirii UserControl in loc de alias-ul Me care se folosește pentru form-uri 
(controalele-utilizator nu sunt form-uri). Atenţie, acest UserControl nu are proprietăţile Top şi 
Left, deci alinierea programatică a unor controale constituente se va face prin raportare la poziţia 
unuia considerat dominant. 

In continuare ne-am propus adăugarea proprietăţilor din tabelul de mai sus. Dacă suntem 
familiarizați cu sintaxa perechilor de declaraţii Property Let/Property Get, scrierea acestor 
declaraţii s-ar putea face si manual. Vom introduce însă un element nou, util atât începătorilor, cât si 
avansatilor, şi anume utilitarul ActiveX Control Interface Wizard. Este un asistent care ne ghidează, in 
câţiva paşi, în delegarea unei proprietăţi sau metode sau în adăugarea alteia noi. Apelarea acestui 
instrument se face simplu, prin opţiunea Project | Add User Control sau printr-un clic cu 
butonul drept pe ramura UserControls a proiectului (vezi figura 21.24). 
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Figura 21.24. Invocarea asistentului ActiveX Control Interface Wizard 


Primul pas al acestui wizard este pur informativ. Al doilea ne cere alegerea controlului pentru care 
dorim proiectarea interfeţei. Este o opţiune căreia trebuie să i se acorde o mare atenţie atunci când intr- 


un proiect (într-o bibliotecă) avem deja mai multe controale- utilizator. 
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în figura 21.25 observăm modul de delegare a proprietăţii (existente) Causes Validation 
către proprietatea similară a controlului Text1. La fel se procedează si cu proprietatea Text. 


ş Vou can map the functiyiality of the properties, methods, or î o vents :n your contrci to the members in constituent consi ols. 


! Frorn the Public Name list, select one or more properties, methods, or events, and then select the control and member | you want to map it to. 
1 When you finish mapping, click Next 
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Figura 21,25. Adăugarea proprietăţii din lista de proprietăţi generice (stânga) şi delegarea unei 
proprietăţi a controlului Text1 (dreapta) 


Proprietăţile TextForeColor, TextDataFormat şi LabelCaption nu există în lista 
de proprietăţi generice şi ca urmare ne vom ocupa de declararea şi delegarea lor corespunzătoare. 
Declararea unor proprietăţi noi are loc tot cu ajutorul wizard-ului (vezi figura 21.26). 
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si din care aici vom prezenta doar cateva fragmente. 


> cod generat în secţiunea General (pentru proprietăţile, evenimentele si metodele implicite): 
"Default Property Values: 
Const m def 3ackColor = 0 Const m def ForeColor = 0 
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Const m def Enabled = 0 Const m def 3ackstyle = 0 Const 
m def 30rderStyle = 0 'Property Variables: 
Dim m BackColor As Long Dim m ForeColor As Long Dim m Enabled As 
Boolean Dim m Font As Font Dim m BackStyle As Integer Dim 
rc_BorderStyle As Integer lEvent Declarations: 


Event Click() 

Event Db1Clickt) 

Event KeyDown(KeyCode As Integer, Shift As Integer) 

Event KeyPress (KeyAscii As Integer) 

Event KeyUp(KeyCode As Integer, Shift As Integer) 

Event MouseDown(Buttcn As Integer, Shift As Integer, X As Single, 
Y As Single) 

Event MouseMove (Button As Integer, Shift As Integer, X As Single, 
Y As Single) 

Event MouseUp(Button As Integer, Shift As Integer, X As Single, 


Y As Single) 
> cod generat pentru proprietăţile adăugate de noi (există si cod pentru proprietăţile implicite, dar 
nu-1 prezentam aici): 
"WARNING! DO NOT REMOVE OR MODIFY THE FOLLGWING COMMENTED LINES! 
"MappingInfo=Textl,Textl,-i,ForeColor Public Property Get 
TextForeCoior() As OLE COI.OR TextForeColor = Textl.ForeColor End 
Property 


x 


Public Property Let TextForeCoior (ByVal New 7extforeColor _ 
As OLE COLOR) ý 
Textl.ForeColor() = New TextForeColor 

PropertyChanged "TextForeCoior" 

End Property 


"WARNING! DO NOT REMOVE OR MODIFY THE FOLLOWING COMMENTED LINES! 
"MappingInfo=Textl,Textl,-1,DataFormat 
Public Property Get TextDataFormat() As IStdDataFormatDisp Set 
TextDataFormat = Textl.DataFormat End Property 


Public Property Set TextDataFormat (ByVal New TextDataFormat As _ 
TStdDataFormatDisp) 
Set Textl.DataFormat = 
New TextDataFormat PropertyChanged 
"TextDataFormat" 
End Property 


"WARNING! DO NOT REMOVE OR MODIFY THE FOLLOWING COMMENTED LINES! 
"Mappinglnfc=Labell,Labell, -1, Caption Public Property Get 
LabelCaption() As String LabelCaption = Labell.Caption End Property 
„e Public Property Let LabelCaption (ByVal 
New _LabelCaption As String) Labell.Caption () = New_LabelCaption 
PropertyChanged "LabelCaption" 
End Property 
> o procedură-eveniment specială, pentru încărcarea valorilor implicite ale proprietăţilor (la 
instantierea controlului): 
"Initialize Properties for User Control Private Sub 
UserControl InitProperties() m BackColor = m def BackColor 
m_ForeColor = m def Forecolor m Enabled = m def Enabled Set 
m Font = Ambient.Font m BackStyle = m def BackStyle m Borderstyle 
= m def BorderStyle End Sub 
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> două proceduri cu destinaţie specială, pentru încărcarea valorilor proprietăţilor respectiv pentru 
salvarea lor. Variabilele prefixate cu m_ (de la „member variables” care este un alt sinonim pentru 
„atribut” sau pentru „proprietate”) sunt declarate în secţiunea General (vezi mai sus) şi servesc 
la memorarea unor valori ale proprietăților pe parcursul „vieții? unui control din clasa 
TextBoxSpec. Metoda ReadProperties are menirea de a „transporta” valorile 
proprietăţilor respectivului control dintr-o entitate abstractă numită PropBag!* în fereastra 
Properties pe care o vedem in etapa de proiectare a unei aplicaţii. Metoda 
WriteProperties are rolul de a memora valorile din fereastra Properties în acel 
PropBag (spre exemplu atunci când proiectantul aplicaţiei „consumatoare de obiecte”20 modifică 
proprietatea TextForeColor din roşu în verde). 
Load property values f rom storage W : i 
Private Sub UserControl ReadProperties (PropBag As PropertyBag) 
m BackColor = PropBag.ReadProperty("BackColor", m def BackColor) 
m ForeColor = PropBag.ReadProperty("ForeColor", m def ForeColor) 
m Enabled = PropBag.ReadProperty("Enabled", m def Enabled) 
Set m Font = PropBag.ReadProperty("Font", Ambient.Font) 
m_BackStyle = PropBag.ReadProperty("BackStyle", m def BackStyle) 
m BorderStyle = PropBag.ReadProperty("BorderStyle", 
m_def BorderStyle) 
Textl.CausesValidation = _ 
PropBag.ReadProperty ("CausesValidation", True) 
Textl.ForeColor = PropBag.ReadProperty("TextForeColor", &HFF&) 
Set DataFormat = PropBag.ReadProperty("TextDataFormat", Nothing) 
Labell.Caption = PropBag.ReadProperty ("LabelCaption", 
"Aici e textul Dv.") 
End Sub 


in Ii > Yoriko ow 


a 


7 ... — 'Write property values to storage 
Private Sub UserControl WriteProperties (PropBag As PropertyBag) 
Call PropBag.WriteProperty ("BackColor", m BackColor, 

m def BackColor) 
Call PropBag.WriteProperty("ForeColor", m ForeColor, 

m def ForeColor) 
Call PropBag.WriteProperty("Enabled", m Enabled, m def Enabledj 
Call PropBag.WriteProperty("Font", m Font, Ambient.Font) 
Call PropBag.WriteProperty ("BackStyle", m BackStyle, 
m def BackStyle) 
Call PropBag.WriteProperty ("BorderStyle", m BorderSty!e, 
m_def BorderStyle) 
Call PropBag.WriteProperty ("CausesValidation", 
Textl.CausesValidation, True) 
Call PropBag.WriteProperty("TextForeCoior", Textl.ForeColor, 
&HFF&) 
Call PropBag.WriteProperty("TextDataFormat", DataFormat, Nothing) 
Call PropBag.WriteProperty("LabelCaption", Labeil.Caption, 

"Aici e textul Dv.") 


End Sub 
Aţi observat la sfârşitul declaraţiilor Property Let o instrucțiune de forma 
PropertyChanged  "nume-proprietate". Aceasta are rolul de a ,anunta” metoda 


WriteProperties că valoarea respectivei proprietăţi a fost schimbată (fie de către proiectantul 


19 Literal „sac de proprietăţi” - locul unde se stochează valorile proprietăţilor unui control anume; este de fapt 
un fişier special, gestionat de mediul Visual Basic. 


20 Adică acea aplicaţie care va folosi obiecte din clasa pe care o creăm acum. 


Programare orientată pe obiecte 241 


aplicației, în fereastra Properties, fie de către o secvenţă de cod în cursul execuţiei aplicaţiei 
„consumatoare”). Ca urmare se declanşează o „actualizare” a controlului. Aceste proceduri si instrucţiuni 
speciale nu existau în cazul creării de clase din categoria ActiveX DLL. Motivul este că acele clase 
sunt mult mai simple: obiectele create pe baza lor neavând aspect vizual, nu au nici fereastră 
Properties, prin urmare nu se justifică elemente de natura Read/Write Properties. 

O altă noutate este apariţia în codul procedurilor Property a unor tipuri de dată „exotice”, ca 
OLE COLOR sau IStdDataFormatDisp. Deocamdată nu e cazul să vă faceţi probleme, wizard- 
ul „ştie”ce tipuri de date au fiecare dintre proprietăţile controalelor. 

Vom termina construcţia?! controlului nostru cu modificarea proprietăţii Toolbox Bitmap. 
Aceasta se găseşte în fereastra Properties a controlului însuşi (o confuzie frecventă este căutarea 
ei printre proprietă tile unui control constituent - să zicem Labell - unde fireşte că nu există). 

Proprietatea ToolboxBitmap este „responsabilă” cu imaginea care va apărea în bara de 
instrumente Toolbox atunci când vom ataşa clasa noastră unui nou proiect (ce va corespunde aplicaţiei 
„consumatoare”). Dacă această proprietate este lăsată la valoarea ei implicită, atunci se va afişa în bara 


de instrumente Toolbox imaginea (pentru orice control), ceea ce face dificilă alegerea vizuală a controlului 
dorit dintre mai multe controale-utilizator care ar putea exista în aplicaţie. Realizatorul aplicaţiei poate 
specifica, pentru această proprietate, calea şi numele oricărui fişier bitmap cu dimensiunile de 16x15 
pixeli (nu se recomandă alte tipuri de fişiere grafice) pe care utilizatorul il poate desena si personal, dacă 
dispune de un program adecvat (Paint, spre exemplu). Pentru controlul nostru am stilizat literele ,TS” 
(de la text special): "6. Pe lângă distincţia vizuală, Visual Basic mai oferă şi un alt mod de a alege 
controlul dorit: numele clasei apare ca tooltip atunci când vom ţine cursorul mouse-ului deasupra imaginii 
din Toolbox (figura 21.27). 


21 Documentaţia Visual Basic foloseşte termenul „authoring” pentru crearea sau construcţia controlului. 
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Subliniem că aceste observaţii privind bara de intrumente Toolbox nu sunt valabile decât in etapa 


proiectării unei aplicaţii „consumatoare”. 
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Figura 21.28..Verificarea parametrilor proiectului în vederea testării/compilării 


în stânga figurii 21.28 se observă pagina General a dialogului de stabilire a proprietăţilor 
proiectului. De aici se poate verifica dacă tipul proiectului este ActiveX Control. 


observă, spre deosebire de configurația Standard 
completează. în dreapta figurii este redată pagina Debugging, 
component se alege controlul pe care dorim să-l 


EXE, 


in care, in 


După cum se 


aici lista Startup Object nu se 


lista Start 
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testăm. Activarea căsuţei de opţiune Use existing browser va avea drept efect lansarea 
controlului ales într-o pagină Web provizorie. După stabilirea parametrilor doriţi si după închiderea 
dialogului Project Properties, vom testa controlul acţionând butonul Run ori tasta F5. 
Rezultatul acţiunii ar trebui să arate ca în figura 21.29. 


3 D; Prograni Files „Microsoft Visual Studio\VB98\leKIBoxSpei: 


File Edit View Favorite? Tools Help 
4* iy :"â search jJFavorites “History Gg^ jif 
Back ~ 
| Address le] 0;\Program Files\Microsoft Visual Studio\VB98\TextBoxSpec.html 
Aici e textul Dv. a 458 
Figura 21.29. Testarea controlului TextBoxSpec in browser-ul Web 


în această etapă nu putem modifica valorile proprietăţilor controlului, dar putem vedea cum 
reacționează acesta la evenimente (vezi figura 21.30). 


di esa Weswibesdiacey coon Saad -ASearch [AJFavorites AjHistory 22 ASK?’ 
if. V-- 


7 Address jisT{ D:\Program Files\Microsoft Visual Studio\VB98\T extBoxSpec.html 


Aici e textul Dv. -25ej ES mug „in! 


„ Í \ Introducefci urhumaăr pozitiv mai mic decât 999999999 


Figura 21.30. Testarea metodelor obiectului (în acest caz, Validate) 


Atenţie! Oprirea browser-ului (cu butonul Stop) ori chiar închiderea sa nu declanşează si 


oprirea execuţiei proiectului. Trebuie acționată explicit opţiunea End a mediului de dezvoltare 
Visual Basic. 


Crearea unei proprietăţi de tip „Data Bound” 

Unele proprietăţi ale controalelor intrinsece Visual Basic permit raportarea la o sursă de date (Data 
Source, Data Member, Data Field). Atât Labei, cât şi TextBox (care constituie 
controlul-utilizator TextBoxSpec) sunt controale dotate cu astfel de proprietăţi. Totuși controlul 
TextBoxSpec nu poate fi utilizat în această etapă pentru a afişa ori a introduce date într-o bază de 
date. Este necesară declararea explicită a capacităţii de legare la o astfe! de sursă de date. 
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Este o operaţiune simplă dacă se recurge la opţiunea de meniu Tools | Procedure 
Attributes (disponibilă numai atunci când controlul-utilizator se află în etapa de proiectare, fiind 
afişat pe ecran). Am ales proprietatea Text a controluiui-utiiizator, care reprezintă de fapt proprietatea 
Text a controlului de tip TextBox constituent, pentru a-i conferi caracterul de interfaţă cu o sursă de 
date. După cum se observă în figura 21.31, 
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trebuie aleasă proprietatea Text din lista Name, apoi activate căsuţele de opţiune 
Property is data boundşi This property binds to DataField (1). 


DAici e textul Dv. 70000 
: 00 
Pssgsisas 
Name: RS “Cj OK j 
Description: Cancel 
Returns/sets the text contained in~ 3 the 
control. Ti Apply 


Project Help File: 


Use this Page in 


PraceinuUre = Property Browser Property Category: 


[(None) * jd j(None) 3 IINonS -2] 
rAttributes- 
| r Hide this member fv “ser interface Default s 


j P Don't show in Property Browser 


; = Data Bindmg ........ or eee 


f!R Property is data bound 


:aField 
| P This property 
binds to DataField \ 
ţi j P Show in DataBindings collection at design 
Figura 21.32. Declararea unui eveniment implicit 
ll i i~*Property will call CanPropertyChange 


Urmează un clic pe butei Apalyiapoi se poate alege altă proprietate, eveniment ori metodă 
pentru care să se execute alté operatii. O astfelpeit? opetatie este şi declararea unei singure proprietăţi 
ca proprietate implicită (asa cum este Caption pentru controlul Labei), fapt realizat prin clic in 
căsuţa User Interface Default. in figura 21.31 s-a 
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exemplificat acest lucru pentru proprietatea Text. in figura 21.32 s-a făcut la fel pentru evenimentul 
Click (ceea ce înseamnă că, în etapa de proiectare, va avea loc deschiderea implicită a procedurii- 
eveniment Click dacă se execută dublu-clic pe controlul de tip TextBoxSpec). şi pentru 
evenimente este valabilă unicitatea caracterului implicit, în timp ce pentru metode pur şi simplu nu este 
posibil a stabili o metodă implicită. 


Compilarea unei biblioteci de controale 
Pentru a pune clasa TextBoxSpec la dispoziţia creatorilor de aplicaţii, va trebui să efectuăm o 
compilare a proiectului, prin opţiunea File | Make <numeproiect>. ocx... 

Dacă nu vedeţi întocmai această opțiune, verificaţi din nou parametrii din dialogul Project | 


Properties. în anumite cazuri (destul de rar, dar s-a întâmplat totuşi) în meniu apare doar 
opţiunea File | Make <numeproiect>, fară extensie. Cauza pare a fi un fisier-proiect (cel 
cu extensia .VBP) corupt. O rezolvare simplă o constituie crearea unui nou proiect (gol) de tip 
ActiveX Control, urmată de atașarea controalelor-utilizator (fişiere cu extensia .ctl) pe 
care le veţi căuta pe disc, asa cum se arată în figura 21.33 (observați că ne aflăm în pagina 
Existing a dialogului Add User Control). După această operaţie, va trebui să setati 
valoarea proprietăţii Public a controlului adăugat la valoarea True (este absolut necesar pentru a 


face clasa utilizabilă în mai multe proiecte). Salvaţi proiectul „reparat” cu acelaşi nume ca şi cel 
corupt, pentru a reduce riscul de confuzie. în orice caz, nu ştergeţi nici unul dintre fișierele proiectului 
folosind Windows Explorer sau un program asemănător. 


2 x! 


New Existing | 


Look in [3 Teste ~| e © ct EB- 
jctlTimer.ctl 


extBoxSpec.ctl 


Open 


a Cancel 


File name: [TextBoxSpec.ctl 


Files of type: U ser D efined Control Files (* ctl) 
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Figura 21.33. Adăugarea într-un proiect a unui control deja creat 
După lansarea opțiunii de compiiare, Visual Basic vă va cere să precizati calea şi numele 
bibliotecii care trebuie creată (fişierul .OCX) . Teoretic, „sediul” controalelor .OCX este directorul 
WINDOWS\SYSTEM (WINNT\SYSTEM32 pentru cei care lucrează cu Windows NT sau 2000), dar 
nimic nu ne împiedică să plasăm biblioteca noastră şi în alt 
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director (dacă lucrăm sub Windows NT sau 2000 se poate ca drepturile noastre de utilizator nici să nu 
ne permită scrierea în sus-numitul director). 

După aceasta, compilatorul Visual Basic va raporta eventualele erori de sintaxă din codul 
controalelor-utilizator. Multe astfel de erori provin de la conflicte de nume ale variabilelor şi apar când 
un utilizator neexperimentat intervine manual în codul generat de wizard-ul de creare a interfeţei. 
După corectia eventualelor erori va începe generarea codului bibliotecii. La sfârşitul acestei proceduri 
ar trebui să găsim fişierul cu extensia .OCX in directorul în care l-am generat (în cazul de fata, 
acest fişier se va numi ControaleCJtiiizatcr. ocx). De asemenea, Visual Basic scrie 
automat o referinţă la acest obiect în Registry (baza de date a sistemului de operare, care ţine 
evidenţa tuturor aplicaţiilor instalate). 

Problemă de securitate. Dacă lucraţi sub Windows 2000 si sunteţi un utilizator din 

grupul normal” Users, este posibil ca la sfârşitul etapei de compilare să apară o interdicţie de a 

scrie în Registry (vezi figura 21.34). 


[Microsoft Visual Basic 


a) Error accessing the systern registry 


TOKI Help | 


Figura 21.34. Se pare că nu aveţi drepturi de acces suficiente 


Dacă eroarea persistă şi fişierul .OCX nu se creează, va trebui să cereti administratorului 
sistemului să vă sporească drepturile de acces (din experienţele făcute, includerea utilizatorului 
„împricinat” în grupul PowerUsers de pe calculatorul local a eliminat eroarea). De ce are nevoie 
compilatorul Visual Basic de acces la baza de date Registry? Răspunsul il oferă figura 21.35. 
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Figura 21.35. Aici sunt stocate informaţiile despre clasa Text BoxSpec 


Sistemul de operare Windows a fost proiectat după o arhitectură orientată-obiect (codul-sursă 
Windows contrazice această abordare, fiind compus mai degrabă din funcţii în stilul limbajului C decât 
din clase, dar aici e vorba despre proiectare, nu despre implementare). Pentru o funcţionare 


armonioasă, se atribuie fiecărei un identificator unic numit 
CLSID (CLaSs IDentifier). CLSID-ul clasei TextBoxSpec se poate vedea în 


figură, care surprinde fereastra programului Registry Editor (dacă nu aveţi experienţă în utilizarea lui, 
atunci este mai bine să nu-1 deschideţi decât să modificaţi accidental ceva care vă poate face 
sistemul instabil sau inutilizabil). Tot aici se observă şi o seamă de proprietăţi de care Windows are 
nevoie pentru a crea ulterior controale de tip TextBoxSpec pe baza definiţiilor stocate în clasă (în 
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stânga figurii). Observati şi referirea <nume- bibliotecă>. <nume-clasa> (în dreapta- 
sus). Se înţelege că, dacă un asemenea CLSID nu ar exista, clasa nu ar putea fi niciodată 
instantiata (dacă ati uitat, instantierea este operaţia de creare a unor obiecte pe baza clasei si va 
avea loc în aplicaţia „consumatoare”). 


Testarea detailată a controalelor-utilizator 

După crearea bibliotecii putem efectua nişte teste detaliate (în special atunci când controlul nostru 
este mai sofisticat). în acest scop se poate utiliza un program accesoriu, ActiveX Control 
Test Container (se lansează din meniul Start | Programs | Microsoft Visual 
Studio Tools). în acest mediu de testare se adaugă clasa pe care vrem să o testăm, prin 
selecţia mai întâi a opțiunii Edit | Insert New Control (figura 21 36). urmată de alegerea 
clasei din lista tuturor claselor înregistrate pe respectivul sistem de calcul (figura 21.37). Se va crea 
automat o instanţă a clasei TextBoxSpec, careva fi afişată ca în figura 21.38. Din acest moment 


putem testa impactul pe care-1 are asupra acestui obiect modificarea valorilor unora dintre proprietăţile 
sale. Astfel, prin opțiunea Control [ InvokeMethods. . . (nu e activă decât dacă s-a selectat 
în prealabil controlul, astfel ca pe laturile sale să apară bine cunoscutele puncte de selecţie) se 
poate afla valoarea unei proprietăţi dacă se alege metoda cu numele format din <nume- 
proprietate> (PropGet) - sunt metode ale aplicaţiei ActiveX Control Test 
Container ce permit apelarea indirectă a proprietăţilor controlului testat. Se poate modifica 
valoarea unei proprietăţi dacă se alege metoda cu numele format din <nume- 
proprietate> (PropPut) . 
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Figura 21.36. Inserarea unui control. OCX în vederea 
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Figura 21.38. O instanţă a clasei TextBoxSpec în curs de testare 


în figura 21.39 se oferă un exemplu de schimbare a valorii proprietăţii LabelCaption. 
Rezultatul se va vedea imediat. 


JIRI 
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Exception Source: 


| ion Hei 


Figura 21.39. Modificarea valorii unei proprietati 


De asemenea, se poate testa validarea sumei introduse, scriind in porțiunea editabilă a controlului o 
sumă negativă şi apăsând tasta TAB pentru a forţa validarea (figura 21.40). 
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Aplicația ActiveX Test Container poate salva parametrii de lucru în fişiere-proiect refolosibile (File 


| Save Session). 
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Figura 21.40. Testarea functionalita ţii controlului (verificarea metodei Validate) 


Folosirea controlului-utilizator 


Dacă suntem siguri de funcţionalitatea controlului, îl putem include într-un proiect de tip Standard 
EXE (vezi figura 21.41) . Vom recurge mai întâi la includerea controlului în proiect (Project | 
Components . . . ) , apoi îl vom trasa pe form. Visual Basic va crea automat un obiect cu 
numele TextBoxSpecl, ca primă instanţă a clasei TextBoxSpecl. Următoarele instante vor 
avea numele implicite TextBoxSpec2, TextBoxSpec3, . . ., TextBoxSpecn. Fireşte 
că putem să schimbăm aceste nume cu unele mai explicite. 
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i mm ControaleUtiteator...............maae E o eects nenea seee cee eee 


I 


i Location: : Di...\..\Teste\ControaleUtilizator.ocx 


| paza €) 54 


Figura 21.41. Adăugarea bibliotecii ControaleUtilizator într-un proiect Standard EXE 
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Dacă biblioteca dorită (în acest caz, ControaleUtilizator) nu se găseşte în listă, putem 
întreprinde o căutare a fişierului .OCX prin clic pe butonul Browse... care va deschide un dialog 
de tip Open. O dată adăugată biblioteca, trebuie să apară în bara de instrumente Toolbox 
pictogramele controalelor conţinute. Vom începe trasarea controalelor şi apoi ajustarea lor după cum 
se arată în figura 21.42. Se continuă astfel până la plasarea tuturor controalelor dorite. Figura 21.43 
arată form-ul în faza de execuţie. Se observă că scrierea unui text în prima căsuţă (numele 
persoanei) nu prezintă nici un inconvenient, deoarece procedura de validare se declanşează numai 
dacă se vor introduce numere. 


General 3 
tMA 
lb rj J m Inaltimea persoanei: Tee. 
aa © 
1 t x 
[H -Uil tj Properties - TeKtB T 
Orl.d jTextBoHSpecl TextBoxSpec 
il 
= Alphabetic | Categorized | 
B © IHelpContextiD 0 Index 
rm 00 3 e © LabelCaption Inaltimea persoanei: 
pl e 
Left 120 
™D Negotiate False 
Tahindex 0 
TabStop True 
Tag 
Text 1000000 
TextDataFormat Number 
TextForeCoior B &H000000FF& d 
LabelCaption 


4Returns/sets the text displayed in an object's title jbar or below 
an object's icon, 


Figura 21.42. Desenarea unui control-utilizator si modificarea valorilor proprietăţilor sale 


Bla! x] 
Numele persoanei: i Son ion 
Inaltimea persoanei: j 177 


Greutatea persoanei: | 75.00 


Înregistrează Anuleaza 


Figura 21.43. Form care utilizează obiecte din clasa TextBoxSpec 


252 Visual Basic 


Atenţie! Controalele-utilizator compilate în biblioteci .OCX sunt expresia unei tehnologii 
(introduse de Microsoft) denumite ActiveX, care defineşte un standard pentru componentele 
capabile „să servească” alte aplicaţii Windows. Componentele ActiveX au ,viata” proprie, adică 
se comportă ca nişte subprograme. Execuţia unui astfel de subprogram începe în momentul în 
care este creată prima instanţă a clasei, adică în momentul în care se trasează un control din 
această categorie pe un form al unei aplicaţii Standard EXE. Deci nu e nevoie de lansarea 
explicită a aplicaţiei „consumatoare” pentru ca un control ActiveX să înceapă să funcţioneze. 
Din acest motiv se va proceda cu mare grijă la proiectarea claselor. Un exemplu la îndemână este 
dat de clasele care conţin controale Timer. Dacă acestea sunt implicit pe poziţia 
Enabled=True, vor începe să funcţioneze încă de la desenarea controalelor pe form si 
probabil se vor opri înainte de execuţia propriu-zisă a proiectului! De asemenea, se va proceda cu 
precauţie la tratarea evenimentelor, pentru a nu produce bucle infinite (care vor bloca aplicaţia, vor 
părăsi inexplicabil mediul Visual Basic sau vor genera eroarea fatală „Out of stack space”). 
lată cât de uşor se poate produce o astfel de eroare, din pură neatentie (sau neîndemânare): 
Private Sub UserControl Resize () 
With Textl 
„Height = UserControl.Height .Width 
= UserControl.Width * raport .Left = 
UserControl.Width - .Width End With 
With Labell 
„Height = UserControl.Height .Width = 
UserControl.Width - Textl.Width End With 
UserControl.Width = UserControl.Width + 10 
End Sub 
De fapt, linia scrisă cu caractere bold este cat se poate de putin subtilă, s-ar zice chiar că este o 
eroare grosolană. Ea modifică lăţimea controluiui-utiiizator, declanşând un nou eveniment Resize, 
care are ca efect execuţia întregii secvenţe de mai sus si asa mai departe (o buclă infinită). Biblioteca 
se compilează normal, neexistând erori de sintaxă, dar, la încercarea de a plasa un TextBoxSpec 
într-un proiect Standard EXE (ca la exerciţiul precedent), lucrurile scapă de sub control (în testul 
efectuat a survenit părăsirea ftră avertisment a mediului Visual Basic, ceea ce este supărător dacă ne 
găsim în mijlocul unui proiect mare şi am uitat să salvăm...). 


Notă: în cazul în care ati folosit deja clasa dumneavoastră în diferite aplicaţii şi, dintr-un motiv 
sau altul, aveţi de întreprins modificări în codul clasei (chiar dacă acest lucru este absolut 
nerecomandat), nu uitaţi să recompilati fişierul .OCX. Astfel aplicaţia „consumatoare” va lua automat 
notă de noua versiune a clasei (informaţiile privind versiunea bibliotecii se păstrează în Registry) . 

în cazul folosirii controlului într-o aplicaţie de tip Standard EXE care va fi livrată în formă 
executabilă, ţineţi cont de faptul că va trebui să copiaţi pe calculatorul-destinatie şi fişierul (sau 
fişierele) cu extensia . OCX. Din fericire, utilitarul Package and Deployment Wizard, cu care vom face 
cunoştinţă în capitolul următor, vă va ajuta în acest sens. şi încă ceva: înainte de a livra o aplicaţie 


de orice fel, fiţi siguri că nu incalcati prevederile legale cu privire la distribuţia de software. 
întrebări şi exerciţii 


Care este specificul paradigmei obiect-mesaj? 

In ce fel poate acţiona un mesaj asupra unui obiect? 

Ce înseamnă tip abstract de dată? 

Ce este o instanţă? 

Ce legătură există între interfaţă şi conceptul de încapsulare? 

Care sunt obiectele sistem în Visual Basic? Exemplificati utilizarea obiectului Debug. 
Care sunt clasele intrinsece din Visual Basic? 


SON Re 
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8.  Prezentaţi mecanismul de creare a unui obiect prin instrucţiunile Dim şi Set. ince condiţii trebuie să 
înlocuim Dim cuPublic? 

9. Cum se distruge un obiect la sfârşitul prelucrării? 

10. Ce diferenţă este între un array (tablou) şi o colecţie? 


11. Adevărat sau fals? în Visual Basic există mai multe colecţii deobiecte predefinite, dar 
utilizatorul nu poate adăuga o colecţie nouă. 

12. Adevărat sau fals? Numărarea elementelor unei colecții începe de la 0, la fel capentru 
array-uri. 


13. Să considerăm un obiect Stilou. Care ar fi proprietăţile şi metodele acestuia? 
14. Care sunt procedurile-proprietate utilizate pentru declararea proprietăţilor obiectelor? 
15. Adevărat sau fals? Controalele-utilizator sunt memorate în fişiere cu extensia. DLL. 


Capitolul 22 DISTRIBUIREA APLICAȚIILOR 


Să presupunem că am terminat de implementat o aplicaţie, pe care am compilat-o sub forma unui 
fişier EXE. Aplicația a funcţionat corespunzător pe sistemul nostru, chiar si în versiune compilată. 
Dar e cazul să aflăm că Visual Basic nu creează fișiere executabile „pure”; pentru a funcţiona, acestea 
au nevoie de câteva accesorii, printre care celebrele biblioteci . DLL. lar aceste „accesorii” s-ar putea 
să nu existe pe sistemul utilizatorului final. 

După toate „chinurile facerii” prin care am trecut pentru a duce la bun sfârşit aplicaţia, nu ne mai 
rămâne de făcut decât să o împachetăm frumos, ca să o putem oferi şi altora. Concret, este vorba de 
a crea programul SETUP pe care utilizatorii aplicaţiei noastre îl vor folosi pentru a o instala pe 
sistemele proprii. 

Deşi această operaţiune este asistată, nu trebuie să lăsăm totul pe seama wizard-ului. După 
crearea programului SETUP, ar fi util să il testăm în mai multe scenarii posibile, pentru a urmări 
efectul unor situaţii precum absenţa Visual Basic de pe sistemul pe care se instalează sau prezenţa 
unei versiuni anterioare a aceleiaşi aplicaţii pe sistem. Pachetul Visual Basic conţine un wizard care 
asistă activitatea de creare a to-ului (pachetului) de distribuţie a aplicaţiei. Practica a demonstrat că nu 
e bine să avem încredere oarbă în acesta. Spre exemplu, nu este exclus ca acesta să omită 
includerea tuturor bibliotecilor necesare (.ocx, .d11l) aplicaţiei sau a unor fişiere ori baze de 
date absolut necesare aplicaţiei. Oricum, folosirea wizard-u\u\ este „mană cerească” dacă ne gândim 
că în urmă cu câţiva ani programatorul avea delicata sarcină de a tine la zi o listă a fişierelor care 
trebuiau incluse în pachetul final. Fişierele de dependențe sunt cele care arată legăturile dintre 
executabilul propriu-zis şi diferite alte fișiere. Pentru proiecte „stufoase”, e necesară cunoaşterea 
acestor dependențe înainte de a trece la folosirea wizard-ului. 


Nu în ultimul rând, programul SETUP constituie prima impresie pe care şi-o face utilizatorul despre aplicație. 


x» 


Si „prima impresie contează”, nu-i aşa? Ar fi de dorit ca SETUP-ul aplicaţiei să aibă un aspect profesional, iar 


instalarea să se deruleze repede şi fără probleme. 


Package and Deployment Wizard 
între instrumentele oferite de pachetul Visual Studio (veţi fi uimiti de câte veţi găsi acolo!) se găseşte 
şi Package and Deployment Wizard. Lansarea se face prin comanda 
Start |Programsl|lMicrosoft Visual Studio 6.0! Microsoft Visual Studio 
6.0 Tools| Package and Deployment Wizard. 

înainte de lansarea wizard-ului ar fi bine să compilăm proiectul (dacă n-am făcut-o deja). După 
deschiderea acestuia în Visual Basic, pentru compilare folosim comanda File | Make, care 
solicită introducerea numelui pe care îl va avea programul executabil. Vom obţine un fişier cu extensia 


-254€ . Visual Basic 
Vom proceda la lansarea wizard-ului. Primul ecran (vezi figura 22.1) cere dezvoltatorului să 


specifice numele proiectului care conţine aplicaţia - folosim butonul Browse pentru selectarea 
acestuia. 


Figura 22,2. Recompilarea opţională a proiectului 


(r, Package and Deployment Wizard 
255 Visual Basic 
Select project; 


]D:UtilizatoriiPrQiecteVBlixempluBDiExempluOneToMany.vi | \ Browse?"! | 


Bundle this proiect into a distributable package, such as an Internet cab 
or a setup program, 


Package 
Send one of this project's packages to a distribution site, such c an Internet 
server, 

Deploy 
Rename, duplicate, and delete your packaging and deployment scripts for this 
project. 

Manage 

Scripts 


Close Help 


Figura 22.1. Package and Deployment Wizard - ecran initial 


Dezvoltatorul trebuie să specifice apoi opţiunile sale privind impachetarea si distribuirea aplicaţiei (vezi 
figura 22.1), alegând între: 


> Package -modul pentru generarea programului de instalare si impachetarea aplicaţiei; 
> Deploy -modul pentru distribuirea aplicaţiei în diferite medii (reţea locală, Internet); 


> Manage Scripts -modul pentru gestionarea script-urilor utilizate în modulele de impachetare si 

distribuire. 

în exemplul nostru am pornit de la proiectul prezentat în Capitolul 17, Fişierul care conţine proiectul 
este intitulat ExempluOneToMany. vbp şi a fost selectat prin butonul Browse. în vederea livrării către 
utilizatorul final, proiectul a fost compilat anterior cu numele Facturare.exe. Totuşi, wizard-ul se oferă 
să recompileze proiectul. Dacă la mesajul din figura 22.2 se răspunde No, se va folosi executabilul existent 
(pe riscul dezvoltatorului, întrucât ar putea fi o versiune neactualizata). 

în orice caz, înainte de a lansa wizard-ul, verificaţi ca proiectul să nu fie deschis într-o sesiune de lucru 
cu Visual Basic. 


Package and Deployment Wizard 


The following source files for this project are newer than the executable file 
"D:\Utilizatori\ProiecteV8\ExempluBD\Facturare, exe”: 


D: \Utilizatori\ProiecteVB\ExempluBD\ExempluOneT oMany. vbp 


Do you want to recompile? Choose No to use the existing executable. 


[ Yes 1 No | 
al 


Cancel 


Figura 22,2. Recompilarea opțională a proiectului 
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Opţiunea Package (primul buton din figura 22.1), pe care am selectat-o, este destinată deci 
împachetării aplicaţiei pentru a putea crea discurile de instalare. Fereastra de dialog Package 
Type solicită tipul programului Setup dorit. Se poate alege între (vezi figura 22.3): 

(a) Standard Setup Package, care creează un kit de distribuţie standard, cu un program 
SETUP. EXE prin care seva instala aplicaţia pe calculatorul utilizatorului; 

(b) Internet Package, un kit special pentru distribuţie prin Internet; opţiunile a) şi b) au ca 
rezultat final fişiere .CAB. Un fişier .CAB este o arhivă cu un format special, care conţine 
fişiere .INF, fişiere .OCX sau alte dependențe necesare aplicaţiei. Opţiunea este 
disponibilă numai dacă se pregătește livrarea unei aplicaţii din categoria ActiveX (controale- 
utilizator). Fişierele unui astfel de pachet vor fi instalate pe un site Web, de unde diferiţi 
utilizatori vor putea descărca cea mai recentă versiune; 

(c) Dependency File, care creează un fişier de dependențe pentru aplicaţie. 


Package type: 


Dependency File 


Description: 
Use to create a package that will be installed by a 1 
setup.exe program. 


Help | Cancel l As3ack 


Figura 22.3. Selectia tipului de kit de distributie 
Vom specifica opţiunea de creare a unui kit de distribuţie standard. Pasii care trebuie parcurşi sunt 
enumerati in continuare. 
>  Specificarea locului in care se va „asambla” pachetul de instalare (un folder existent, un folder nou 
sau un folder din reţea - pentru fiecare există un buton de comandă, precum se vede în figura 
22.4). 


Distribuirea aplicaţiilor 257 


Choose the folder where your package will be assembled. 


m 
The new folder will be created under the current folder: jak 
B-Mt - 
3 ea Daiana Ple Kituri Cancel 
H ii 
Please enter a name for the new folder. 
}Facturare| 
jD:\Kituri\Facturare 
3d: [User”...]....... 
Network.., 
e 11 AcrobatReader Gj v j | New Folder... ~| 
mi Arhive CIO Avp3511 


QcBT 


Help 


Figura 22.4. Specificarea folderului pentru kit-ul de instalare 


Specificarea fişierelor care se vor include în kit-ul de instalare. Wizara-ul a construit această listă 
(care corespunde în mare fişierului de dependențe), după cum se vede în figura 22.5, dar un 
dezvoltator atent (şi priceput) ar trebui să aibă o listă de control a fişierelor necesare, pentru a 
verifica dacă cea construită este completă. Există posibilitatea de a completa lista cu un fişier nou, 
folosind butonul Add (noi am adăugat fişierul vinzari .mdb, care conține baza de date utilizată), 
sau de a elimina fişierele care nu trebuie incluse, prin dezactivarea check-box-urilor din stânga lor. 


Package and Deployment Wizard xJ 


The Piles in the list below will be induded in your package. Click Add 
to include additional files. Clear the checkbox to the left of the file 
name to remove a file from the package. 


Files: 

ame: 1 Source H 
(0dao360.dll C:\Program Files\Common File: J 
(O0DBGRID32.0CX C:\WINNT\system32 
ODBLIST32.0CX C:\WINNT\system32 
PI expsrv.dil C:\WINNT\system32 
IOFacturare.exe D:\Utilizatori\ProiecteVB\Exem a 
| Es RR et Mee onoarei ct ie et 

Help J Cancel j < Back | Next > 


Figura 22.5. Lista fisierelor care se vor include in aplicatie 


Indicarea optiunilor de distribuire a aplicatiei (vezi figura 22.6), care depinde de suportul pe care se 
memorează aplicaţia. Suportul utilizat este de regulă discul (CD sau discheta). Dacă se utilizează 
discheta, există si posibilitatea ca aplicaţiei să-i fie necesare mai multe dischete, caz în care trebuie 
să alegem opțiunea „Multiple cabs", 
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după care se indică, din lista ascunsă, capacitatea dischetelor disponibile. Dacă suportul este CD- 


ROM sau mergem pe varianta distribuirii pe Internet ori a copierii într-un director de pe o reţea, 
rămâne selectată opţiunea „Single cab". 


You can create one large cab file or multiple cab files for your 
package. If you are going to distribute your application on floppy 
disks, you must create multiple cabs and specify a cab size no 
larger than the disks you plan to use. Choose the appropriate 
option below. 

Package and Deployment Wizard - Cab Opt 


Cab options if 
gnglecabj P 


j 
Multiple cabs | 
'} 
j 
f 
| 
| 


Figura 22.6. Opţiuni de distribuire a aplicaţiei 


Installation title: 


[Apic atie|Facturari 


We | caveat | ct Pees] m | 


Figura 22.7. Precizarea numelui ce se va afişa în linia de titlu a programului de instalare 


> Specificarea numelui care va apărea în linia de titlu a programului de instalare (vezi figura 22.7). 
Vom indica un nume sugestiv, care poate avea până la 256 de caractere (poate conţine şi spaţii). 
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Opţiunea privind modul în care aplicația va fiinctusă fr meniul Start al sistemului de operare Windows 


(vezi figura 22.8). Din această fereastră se pot stabili opțiuni pentru adăugarea de noi grupuri de 
programe sau elemente de grup. Numele alese trebuie să fie sugestive şi pe înţelesul utilizatorilor 
(numele deja definite pot fi modificate folosind butonul Properties). 


Package and Deployment Wizard - 2<J 


™ Determine the start menu groups and iterns that will be created telk >:v-(Xby the 
installation process. 


I 


-il x 
[A -gl 1 
Ik | N 
7 
Start menu items: 
Start Menu B «{§ Programs New Group 
B Apiicatie Facturari Niewiem 
-% Apiicatie Facturari E 
Properties-. 
Remove 
Help Cancel < Back Next > 


Figura 22.8. Includerea aplicatiei in meniul de start Windows 


«lp Package and Deployment Wizard -1 pun mm iii 
= x V 
RP Yo'J can modify the instali location for each of the files listed below by 
changmg the macro assigned to the file in the table. If desired, you can add 
subfolder Information to the end of a macro, as in 


Y $(ProgramFiles)\MySubF older. 


Choose the file you want to modify, then change the Information 


LJ in the Instali Location column. 

Files: 

[Name Tsource | Instali Location Jk. 
dao360.dII [C:\Program FilesiCornmon Files\Microsoft Share; $(M5DAOPath) 3 
DBGRID32.0CX ~CAWINNT\system32 $(Win5ysPath) 

DBLI5T32.0CX C: \WINNT\system32 $(WinSysPath) 
Facturare.exe D:\Utilizatori\ProiecteVB\ExempluBD $(AppPath) 


MDAC_TYP.EXE 


D:\Prograrn Files\Microsoft Visual Studio\VB98\V $(AppPath) 


Cancel < Back Next > Firi 


Figura 22.9. Precizarea destinaţiei fişierelor aplicaţiei 


> Precizarea locației in care se va face instalarea pe discul calculatorului-destinatie (vezi figura 22.9). Pentru 
fiecare fişier constituent se pot indica destinaţii diferite (practic, 
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folderul în care se va găsi respectivul fişier). Nu este obligatoriu ca toate componentele unei 
aplicaţii să fie în acelaşi loc; spre exemplu, bibliotecile .DLL se găsesc de regulă în folderul 
WINDOWS\SYSTEM sau WINNTNSYSTEM32. Va fi poate nevoie ca pentru unele fişiere să se 
modifice litera unei unităţi de disc (în figura noastră e folosit discul D:, dar s-ar putea ca pe 


calculatorul-destinatie să nu existe decât discul C:). Partea interesantă este dată de posibilitatea 
specificării relative a diferitelor căi sub forma unor macrosubstituţii, de exemplu $ (AppPath) 


va însemna acelaşi director cu fişierul .EXE, $ (ProgramFiles) va fi directorul Program 
Files de pe calculatorul utilizatorului final, $ (WinPath) va fi C:\Windows, 
D: Windows, E: Windows, C:\Win, C:\Winnt, D:\Winnt şi aşa mai departe 
(vezi coloana /nstall Location in figura nr. 22.10). Astfel, nu mai trebuie să ne preocupe structura 
de directoare particulară de pe un calculator-destinatie. 


| Install Location 


[$(WinSysPath) 
$(WinPath) 
$(CommonFiles) 
p(CommonFilesSys) 
\p(ProgramFiles) 


. ItfFont) 
CBack Next > | 


Figura 22.10. Specificarea unei cai relative pentru fisierele kit-ului 


> Specificarea fișierelor comune (vezi figura 22.11). Optional, se poate cere ca unele dintre fişierele 
aplicaţiei de fata să fie partajate cu mai multe aplicaţii. Astfel, dacă aplicaţia pe care o construim 
va fi dezinstalată, fișierele comune vor rămâne pe disc, nu vor fi şterse, lăsând „orfane” alte 
aplicaţii care le foloseau. Tot aici se pot preciza si locaţiile unde să fie instalate aceste fișiere, in 
coloana Install Location (invizibilă in figură). 

Observaţie: în figura 22.11 se observă şi fişierul MDAC_TYP.EXE. Acesta este un utilitar 

propriu pachetului Visual Studio 6, care asigură configurarea tuturor opţiunilor privind lucrul cu 

baze de date (prezenţa lui se justifică deoarece aplicaţia noastră foloseşte o bază de date). Dacă 
sunteţi siguri că nu e necesară folosirea programului MDAC TYP. EXE pe calculatorul- 
destinaţie, nu bifati acest fişier. 

După culegerea tuturor acestor informaţii, wizard-ul poate trece la treabă. îi mai trebuie doar 
numele sub care se vor salva toate aceste opţiuni (într-un fişier script - vezi figura 22.12). După 
apăsarea butonului Finish şi scurgerea timpului necesar, sistemul va afişa un raport despre procesul 
de împachetare realizat, raport care poate fi opţional salvat. 
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Package and Deployment Wizard ASM-iZv/. :E Ler 
3 When this package is installed, the following file(s) can be || installed as shared 
les. Shared files may be used by more than §1 one program. They are only 


removed if every program which j uses them is removed. Check the files you want 
to install as f§ shared. 


Shared files: 
i Name Source 


= Facturare.exe D:\Utilizatori\ProiecteVB\ExempluBD 
o MDAC_TYP.EXE D:\Program Files\Microsoft Visual Studio\VE 


Help | Cancel [ < Back ] Next > 


Figura 22.11. Specificarea fişierelor comune 


The wizard has finished collecting information needed to build this 


package. Enter the name under which to save the settings for this session, 
then click Finish to create the package. 


< Back 


Figura Help | Cancel | 


22.12. Precizarea unui nume pentru script-ul de 
instalare 


în urma acestui proces, wizard-ul creează pe disc o structură de directoare pe care o prezentăm in figura 22.13. 


Se observă fişierul .CAB si un fişier Setup . exe generalizat. în subdirectorul Support se găsesc 


fişierele . DLL şi celelalte necesare a fi distribuite o data cu aplicaţia. 


j Address j_J D:\Kituri\Facturare Ei 


Folders X [Name ll Size j Type: j Modified 
gal ada ba să d _J Support AFacturare.CAB File Folder 12,012 KB 01/08/2001 14:23 01/08/2001 
re Hes S A Sta i Asetup.exe j*>] SETUP.IST WinZip File 137 KB 14:23 14/03/2000 01:00) 
E E S Application 6 KB LST File 01/08/2001 14:23 


_1 1eorKFTD 


= Figura 22.13. Structu a de directoare corespunzătoare kit-ului de instalare 

Lansarea în execuţie a fişierului Setup din figura 22.13 va lansa procesul de ins 

(figura 22.14) — asta dacă doriţi s-o instalaţi pe acelaşi calculator pe care ati proiectat-o, ceea ce 
credem că nu va fi cazul. De aici lucrurile decurg ca la instalarea oricărei alte aplicaţii Windows... 


+2 Aplicatia Facturari Setup 


Bs Wslcome to the Aplicația Facturari installation program, 
</ 


Setup cannot instail system files or update shared files if they are in use, Before 
proceeding, we recommend that you close any appiications you may be running. 


Exit Setup 


Figura 22.14. Aspectul ecranului de instalare 


Optiuni de distribuire a aplicatiilor 
Distribuirea pe CD-ROM sau dischetă este varianta standard. CD-ul a devenit suportul cel mai popular, 
datorită raportului excelent pret - calitate. Prin calitate ne referim aici la capacitate (echivalentă cu cea 
a aproximativ 444 de dischete) şi la fiabilitatea suportului. Pentru distribuirea pe CD, în opţiunea 
Package din Package and Deployment Wizard se indică un folder care se va dedica operaţiunii de 
distribuire a aplicaţiei - care va conţine practic toate fișierele aplicaţiei impachetate. Folder-ul se va 
inscriptiona apoi pe CD. Acelaşi mod de lucru este valabil si pentru distribuirea pe dischete, diferă 
opțiunea din pasul referitor la Cab Options, în care trebuie specificat Multiple cabs (vezi figura 22.6). 
Distribuirea de aplicaţii pe Internet a devenit o opţiune deosebit de atractivă pentru firmele de 
software, în special cele mici. în acest fel se reduc semnificativ cheltuielile aferente distribuţiei (costul 
suporturilor, al inscripţionării lor, al transportului etc.). Accesul se poate restricționa printr-o parolă; 
utilizatorii care au drepturi pot descărca aplicaţia de pe un site securizat. Este o opţiune frecvent 
folosită pentru versiunile demonstrative ale aplicaţiilor sau pentru upgrade-uri. Aplicațiile „adevărate” 
pot fi mai greu distribuite in acest fel, în principal datorită dimensiunilor lor si absent ei documentaţiei 
pe suport de 
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P Package and Deployment V 2<1 


When this package is installed, the following file(s) can be installed as shared 
files. Shared files may be used by more than one program. They are only 
removed if every program which uses them is removed. Checkthe files you 
want to install as shared. 


m 
Shared files: 
[Name Source 
fH Facturare.exe D:\Utilizatori\ProiecteVB\ExernpluBD 
Help Cancel < Back Next > 


Figura 22.11. Specificarea fisierelor comune 


“J 


f The wizard has fimshed collecting information needed to build jif this package. 
Enter the name under which to save the settings for this session, then click Finish to 
create the package. 


Şcript name: 


iSetupFacturaril 


Help | 


Cancel < Back Finish 


Figura 22.12. Precizarea unui nume pentru script-ul de instalare 
In urma acestui proces, wizard-ul creează pe disc o structură de directoare pe care o prezentăm în figura 


22.13. Se observă fişierul .CAB si un fişier Setup. exe generalizat. în subdirectorul Support se 
găsesc fişierele .DLL şi celelalte necesare a fi distribuite o dată cu aplicaţia. 


Pia 


= ; === "caţiilor 


Folders x || Name 7 


escorar, 2] [swot 
[`] Golzilla ED Facturare.CAB 12,012 
3] HPSsiNX setup.exe 


LJ Icq Server & Client (34) SETUP.LST 


Figura 22.13. Structura de directoare corespunzătoare kit- ului de instalare 


Lansarea în execuţie a fişierului Setup din figura 22.13 va lansa procesul de instalare a aplicaţiei 
(figura 22.14) - asta dacă doriţi s-o instalaţi pe acelaşi calculator pe care aţi proiectat-o, ceea ce 
credem că nu va fi cazul. De aici lucrurile decurg ca la instalarea oricărei alte aplicaţii Windows... 


'îjiitps 


EM..J 


îJ Aplicația Facturari Setu 
Welcome to the Aplicația Facturari installation program. 


Setup cannot instali systemf iles or update shared Files iP they are in use. Before 
proceeding, we recommend that you close any appiications you may be running. 


OK 


pw, Exit Setup 


Figura 22.14. Aspectul ecranului de instalare 


Optiuni de distribuire a aplicatiilor 

Distribuirea pe CD-ROM sau dischetă este varianta standard. CD-ul a devenit suportul cel mai popular, 
datorită raportului excelent pret - calitate. Prin calitate ne referim aici la capacitate (echivalentă cu cea a 
aproximativ 444 de dischete) şi la fiabilitatea suportului. Pentru distribuirea pe CD, în opţiunea Package 
din Package and Deployment Wizard se indică un folder care se va dedica operaţiunii de distribuire a 
aplicaţiei - care va conţine practic toate fişierele aplicaţiei impachetate. Folder-ul se va inscriptiona 
apoi pe CD. Acelaşi mod de lucru este valabil şi pentru distribuirea pe dischete, diferă opţiunea din pasul 
referitor la Cab Options, în care trebuie specificat Multiple cabs (vezi figura 22.6). 

Distribuirea de aplicaţii pe Internet a devenit o opţiune deosebit de atractivă pentru firmele de 
software, în special cele mici. în acest fel se reduc semnificativ cheltuielile aferente distribuţiei (costul 
suporturilor, al inscripţionării lor, al transportului etc.). Accesul se poate restricționa printr-o parolă; 
utilizatorii care au drepturi pot descărca aplicaţia de pe un site securizat. Este o opţiune frecvent folosită 
pentru versiunile demonstrative ale aplicaţiilor sau pentru upgrade-uri. Aplicațiile „adevărate” pot fi mai 
greu distribuite in acest fel, in principal datorită dimensiunilor lor şi absenței documentaţiei pe suport de 
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hârtie. Pentru a realiza acest tip de distribuţie, kit-ul de instalare se va crea mai întâi pe calculatorul 


local, după cum s-a arătat până acum, apoi se va alege opţiunea Deploy a wizard-ului, selectând 
modalitatea Web Publishing (vezi figura 22.15). Bineînţeles, dezvoltatorul aplicaţiei trebuie să aibă 
acces cu drepturi de upload la un server Web. 


xj 


* le Package mm and Deployment Wiz 
; Chooss the type of deployment you want to perform. 


% 


Deployment method: 


iFolder 
Web Publishii 


Description: 
Use to pubiish a package to a Web server , 


Help <Bactf"~1 Next > Fs; 


Figura 22.15. Posibilitatea transferării kit-ului de instalare într-un intranet sau pe Internet 


Distribuirea in reţea (intranet) are în vedere aplicaţiile dezvoltate cu destinaţia utilizării în cadrul unor 
organizații. Evident, trebuie ca în acea organizaţie să existe o reţea locală. Această variantă de distribuire 
presupune în primul rând crearea kit-ului de instalare (după succesiunea de pași prezentată mai sus), după 
care se merge pe opţiunea Deploy a wizard-ului (vezi figura 22.15). Se va specifica opţiunea de distribuire în 
reţea (Folder), iar wizard-ul va efectua ,distributia” aplicaţiei către folder-ul respectiv. 


ANEXA O aplicaţie complexă 


Este timpul să prezentăm o aplicaţie care îmbină multe dintre elementele cu care ne-am întâlnit în 
lucrarea de faţă. Astfel, pe parcursul realizării aplicaţiei ne vom întâlni cu cele mai răspândite controale, 
cu proceduri definite de utilizator şi controale-utilizator, cu o bază de date Jet (sau Access) şi cu câteva 
rapoarte realizate cu ajutorul instrumentului specializat din Visual Basic. Vom merge mai departe 
prezentând câteva elemente ce depăşesc stadiul de începător, dar care vor fi punctate la momentul 
apariţiei lor. 

Această aplicaţie este destinată gestiunii datelor privitoare la studenţii unei facultăţi. Sunt culese şi 
urmărite în special datele privind evoluţia situaţiei şcolare a acestora. 


Analiza cerinţelor informaţionale 
Este etapa preliminară, în care vom căuta să aflăm ce doresc de la potentiala aplicaţie utilizatorii finali. 
Este vorba în principal despre secretariatul facultăţii respective, dar şi despre persoane din conducerea 
facultăţii, foruri ierarhice superioare sau studenţii care doresc să afle rezultatele unor examene. După 
cum ştim, cerinţele utilizatorilor unui program informatic se manifestă prin obţinerea unor rapoarte (liste) 
tipărite ori a unor răspunsuri la întrebări (care pot fi citite direct de pe ecran). în cazul unor produse 
sofisticate, informaţia textuală este completată cu informatie grafică ori chiar sonoră. 

Documentarea „pe teren” a dezvăluit necesitatea întocmirii şi tipăririi unor documente ale căror 
formate sunt prezentate în figurile Al... A6. 


Universitatea.. Facultatea... 
Lista generală a studenţilor 


Numele si prenumele Matricol Data naşterii Specializarea Anul Grupa 
1. | BOERU SANDA EL991112 11/11/1981 Economie generala 2 21 
2. | DODU IOANA EL001111 02/11/1981 Statistica 2 22 
3. | DONEA RAMONA EL991115 08/08/1981 Economie generala 2 22 
4. | DONEA RAMONA EL991115 08/08/1981 Contabilitate 1 11 
n. | SULU AM ALIA ELO01113 06/03/1981 Economie generala 1 11 


15/08/2001 9:23:20 AM 
Pagina m dinn 


Figura A. 1. Modelul de lista nr. 1 


Universitatea... 


Facultatea... 
Lista studenţilor din anul... 
Numele si prenumele Matricol Data naşterii Specializarea Grupa 
1. | BOERU SANDA EL991112 11/11/1981 Economie generala 21 
2. | DODU IOANA ELOOI111 02/11/1981 Statistica 22 
3. | DONEA RAMONA EL991115 08/08/1981 Economie generala 22 
n. | RADU CRISTINEL EL991116 04/02/1982 Economie generala 21 


Pagina m dinn 
15/08/2001 9:23:20 AM 


Figura A. 2. Modelul de lista nr. 2 


Universitatea... 


Facultatea... 
Lista studenților din grupa... _ Specializarea... 
Numele si prenumele Matricol Data naşterii 
1. | BOERU SANDA EL991112 11/11/1981 
8. HINCU IONEL EL991113 05/02/1982 
n. RADU CRISTINEL EL991116 04/02/1982 
Paginam din/? 


Figura A. 3. Modelul de listă nr. 3 


Universitatea... 


Anexă 


Facultatea... 
Lista studentilor specializării... 
Num ele si prenumele Matricol Data naşterii Anul Grupa 
1. FLOREA ALINA EL991111 02/01/1980 3 31 
n. ȘTEFAN PAUL EL991118 15/03/1979 3. 31 
Pagina /77din/? 
15/08/2001 9:23:20 AM 
Figura A. 4.Modelul de lista nr. 4 
Universitatea... 
Facultatea... 
Rezultatele examenului la disciplina ... din data ... 
ci A $ Lucrare scrisă Nota 
[Apreciere în timpul finală 
anului 
Numele şi prenumele Matricol Nota Coef. Nota Coef. 
1. GOGA DANIELA EL991114 6.5 0.5 4 0.5 5:25 
2. HINCU IONEL EL991113 9 0.5 Abs. 0.5 Abs. 
n. ȘTEFAN PAUL EL991118 9 0.5 8.45 0.5 8.73 
Pagina/7 din/? 
15/08/2001 9:23:20 AM 
Figura A. 5. Modelul de lista nr. 5 
Universitatea... 
Facultatea... 
Situaţia școlară a studentului... în anul universitar ... 
i în ti Lucrare scrisă Nota 
[Aprec: 
preciere în timpul finală 
anului 
Denumireadisciplinei Data Nota Coef. Nota Coef. 
examinarii 
Introducere in informatica 21/02/1999 9 0.5 Abs. 0.5 Abs. 
Matematici aplicate 31/01/1999 9 0.4 8 0.6 8.40 
Medii de programare 01/06/1999 6.8 0.5 4 0.5 5.40 


15/08/2001 9:23:20 AM 


Paginam dinw 


Figura A. 6. Modelul de lista nr. 6 
Observaţie: nota finală se calculează ca medie ponderată a 2 note (de la 1 la 10): prima 
reprezintă aprecierea activităţii studentului pe parcursul semestrului, a doua este nota obţinută la 
examenul de sfârşit de semestru. Fiecare dintre aceste două note se inmulteste cu un coeficient 
care este stabilit de titularul disciplinei respective si poate fi modificat de la un an universitar la altul. 


Proiectarea bazei de date 
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Din inventarierea cerinţelor informaţionale exprimate prin listele prezentate anterior se obţin de fapt 
atributele (câmpurile) tabelelor care vor forma baza de date. Aceste atribute formează în prima fază 
ceea ce se numeşte catalog (sau dicționar) de date. Dacă inventarierea atributelor într-un catalog este 
relativ simplă, gruparea acestor atribute in reiatii (tabele), pornind de la catalogul datelor, este o 
operaţie ceva mai dificilă. Se urmează paşii: catalog de date -> relaţie universală (o singură tabelă 
cuprinzând toate atributele) -> relaţii într-o formă normalizată (a treia sau una superioară). în acest 
scop sunt necesare cunoştinţe privind formele normale (sau normalizate) ale relaţiilor (tabelelor). Pe 
scurt, normalizarea poate fi definită ca un demers îndreptat spre obţinerea unei structuri (scheme 
conceptuale) a bazei de date care să elimine pe cât posibil redundantele şi anomaliile de actualizare. 
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în prezent sunt fundamentate teoretic un număr de cinci (plus una) forme normalizate', notate 
FN1...FN5 şi respectiv BCNF? care este o variantă a FN3. 

Despre normalizarea bazelor de date relationale s-a scris destul în cărţi, periodice si pe la 
grupurile de discutii din Internet; în lucrarea de faţă nu avem nici timpul, nici spaţiul si nici intenţia de 
a insista asupra acestui proces. 

Pentru cititorii printre ale căror preocupări imediate nu se numără „digerarea” unor materiale 
adiţionale privind normalizarea, dar si pentru ceilalţi, oferim, in figura A.7, structura bazei de date (pe 
care o vom numi GeStud). Forma normală atinsă este FN3, considerată suficientă în majoritatea 
aplicaţiilor de gestiune. 

Se impun câteva precizări privind formalismul utilizat în figura A.7. Astfel, atributele subliniate 
reprezintă chei primare pentru tabelele în care apar. Atributele de la care pleacă săgeți sunt chei 
străine în tabelele în care apar şi indică, logic, cheile primare ale altor tabele. O linie care uneşte 
două tabele reprezintă restrictia referentiala. Terminatiile liniei arată cardinalitatea2: vârful de 
săgeată înseamnă 1, iar terminația simplă înseamnă n. Să explicăm folosind restrictia notată cu (1): 
un student se poate înscrie de mai multe ori (la mai multe specializări). 


23 Boyce-Codd Normai Form, după numele celor care au enuntat-o. 
24 Numărul de entităţi de pe fiecare parte ce pot fi implicate într-o legătură dintre tabele. 
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IDISCIPLINE 


|Coddisc | Dendisc | Coefsem | Coefteza | Anuniv 
Has Sats 


ÎNSCRIERI 


STUDENT! 
Aatiicol ~ | Numepren | Datanast | Foto 


Matricol 1 Anuniv I [N Aiistiid TCodspec [ GrupT 


+ 
spkéruizare Codsoec i Denspee 

NOTELE 

Coddisc 1 Anuniv | Matricol ! Dataex j Notasem | Notateza 


Figura A. 7. Schema bazei de date GeStud 

Observaţie: tabela NOTELE a fost intitulată astfel întrucât note este un cuvânt rezervat în 

mai multe limbaje de programare. Folosindu-1, ar putea apărea conflicte la exploatarea bazei de 

date. 

Tipurile de date ale atributelor nu sunt prezentate în schema din figura A.7, Nici nu se recomandă 
acest lucru în etapa proiectării. Este adevărat că în catalogul de date trebuie să se tacă notații privind 
tipul de dată (evident că numele unui student va fi de tip şir de caractere, iar data susţinerii unui 
examen de tip dată calendaristică...), dar transpunerea „în practică” a acestor tipuri de dată va avea loc 
în etapa proiectării fizice (implementării propriu-zise a bazei de date printr-un software adecvat). De 
ce se procedează astfel? în primul rând, persoana care proiectează schema bazei de date (analistul) nu 
trebuie să plece din start cu ideea că se va folosi (sau chiar impune utilizatorului) SGBD „cutare”; un 
SGBD cu posibilităţi mai reduse sau, dimpotrivă, mai largi decât media performanţelor? l-ar putea 
conduce la o reflectare deformată a situaţiei „de pe teren”. în ai doilea rând, deşi tipurile de date din 
BD relationale se impart în câteva categorii mari şi bine cunoscute, de la un SGBD la altul există 
diferenţe şi nuanţe privind implementarea propriu-zisă. 

Trecând peste această etapă a proiectării structurii bazei de date, constatăm că facultatea 
beneficiară dispune de o licenţă pentru mediul de dezvoltare Visual Basic, versiunea 6. Ca urmare, 
formatul de bază de date ales este cel de tip Access (Jet), pentru care Visual Basic are un bun suport şi 
care convine aplicaţiilor pentru organizaţii de mici dimensiuni (beneficiarul nostru are circa 1000 de 
studenţi în toţi anii de studiu). 

Este timpul să ne aplecăm din nou asupra figurii A.7 şi totodată să ţinem cont de precizările din 
tabelul A.1. 


25 Un SGBD „de birou” ca Access, FoxPro sau Paradox diferă în performanţe de lucru şi flexibilitate de un SGBD de tip „client-server” 
precum Oracle, DB2 ori SQL Server, dar preţul primei categorii este măcar de 10-20 de ori mai mic decât al celei de-a doua. 
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Tabelul A. 1,iipuri de date pentru atributele tabelelor din baza de date GeStud 


Nume tabelă Nume Tip de dată Dimensiune 
câmp maximă 

STUDENTI Matricol Text 8 
Numepren Text 36 
Datanast DateTime nu! 
Foto OLE Object nu 

DISCIPLINE Coddisc Text 7 
Dendisc Text 50 
Coefsem Single nu 
Coefteza Single nu 
Anuniv Integer nu 

SPECIALIZARI Codspec Text 1 
Denspec Text 40 

INSCRIERI Matricol Text 8 
Anuniv Integer nu 
Anstud Integer nu 

Codspec Text 1 
Grupa Integer nu 

NOTELE Matricol Text 
Coddisc Text 

Anuniv Integer nu 
Dataex DateTime nu 
Notas Single nu 
Notat Single nu 


Fireşte, nu e nevoie neapărat să dispuneti de mediul Microsoft Access pentru crearea şi popularea 
bazei de date. Se poate utiliza în acest scop instrumentul Visual Data Manager, după cum s-a arătat în 
Capitolul 17. 

Ştiaţi că? Visual Data Manager este o aplicaţie scrisă în întregime în Visual Basic? Sursele 

acesteia pot fi găsite în directorul .. Program Files Microsoft Visual 

Studio\MSDN\...\samples\vb98\visdata. S-au notat cu acele parti ale căii de 

directoare care pot diferi de la un sistem la altul. De asemenea, este posibil să nu găsiţi directorul 

vis dat a pe sistemul dumneavoastră. în acest caz, la instalarea documentaţiei MSDN aţi omis 
probabil opţiunea „VB Product Samples” (vezi figura A.8). Soluţie: Relansati instalarea 
pachetului MSDN din Control Panel, folosind opţiunea Add/Remove. 

Nu vom reveni acum asupra modului de utilizare a instrumentului Visual Data Manager, găsiţi 
indicaţii în acest sens în Capitolul 17. Veţi constata mai devreme sau mai târziu că Visual Data 
Manager are totuşi câteva mici inconveniente. O dată cu expunerea lor vom furniza şi câteva 
artificii reparatorii; unele dintre ele necesită atenţie. 
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In the Options list, select the iterns you want installed; clear the items you want to be removed. xj 
A grayed box with a check indicates that only part of the component will be installed. T o select all components in the 
Option list, click Select All. 
Options: Description; 
P Fall Tegi Search Inder PYR 123960 K | Microsoft Visual Basic Product Samples 
Documentation nso4 K' 
A m m = . i £ 1 v 
„MIIiăEEiȚfeltil afif ©” 
T 

P VC++ Documentation P VFP fll 
Documentation P VFP Product 

usa K 
Samples P* VID Documentation 

54233 K - n 
f' VJ++ Documentation VJ++ Select All 

10046 K 
Product Samples ee 

Folder for Currently Selected Option: -..... op cia 
K 2418 K 
C:\..AMSDN\200CftPFI\1033\Samples\VBo8\visdata_* ~4" 
239927 K Components to Add:, 
Space required on C: Space 
419374 K Components to Remove: o 

available on C;;; Continue Cancel 


Figura A. 8. Optiunea de instalare a modelelor de aplicatii Visual Basic 


Table Structure Mis E 
ui weds, #18111 
Name: Name: iMatricol 
Field List: Type: T fKsoiipgg, 
Coddise Size: a 
Dataex E iat, 
Noes CollatingOrder: VaWabieiengiK:. r 
AuMncrem>f p 
OrdinalPosition: AllowZeroLength r 
ValidationText: Required 
ValidationRule: 
Add Field Remove Field Deft Vale: 
Index List : ame: 
Name: jhkjiotendisc 
m 
r Tr p 
p: Uriiqqe rotsig 
n 
| Fields: — [+Coddise;+Aduniv 
Add Index | e Index 
P 
Close I gnor A T Print Structure 
1 


Figura A. 9. Căsuţa "Foreign Key" este inaccesibilă 


Printre neajunsurile Visual Data Manager se numără imposibilitatea creării cheilor străine (cel puţin 
noi n-am reuşit - în versiunea furnizată o dată cu Visual Basic 6 Enterprise Edi tion). Ce-i drept, în 
dialogul de creare a structurii tabelei există o căsuţă de opţiune intitulată „Foreign”, dar e întotdeauna dezactivată 
(vezi figura A.9). Solufie: folosiţi, în fereastra SOL Statement, o comandă ALTER TABLE, dupa 
modelul prezentat tot în capitolul 17 (revedeti figura 17.10). Prin clauza REFERENCES a 
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acestei comenzi se creează şi restrictia referentiala (cheia primară a tabelei invocate în clauza 
REFERENCES trebuie, logic, să fi fost creată în prealabil). De altfel, se recomandă definirea cheii 
primare imediat după crearea structurii fiecărei tabele. Dimpotrivă, cheile străine trebuie definite 
după ce au fost definite toate cheile primare. 


Alte inconveniente ale instrumentului Visual Data Manager constau în: 
> semnalarea unor erori care de fapt nu au loc (mesajul Invalid operation), atunci când se lansează 
o comandă SOL ALTER TABLE care este de altfel corectă. S-a întâmplat acest lucru la crearea 
cheilor străine. Pentru edificare, dati comanda, ignorati eroarea, inchideti şi redeschideti baza de 
date apoi verificaţi dacă la tabela în cauză (în modul de lucru Design) a apărut cheia străină. 
Dacă nu a apărut, e vorba despre o eroare de sintaxă ori semantică (s-a precizat un nume de 
tabelă sau de câmp care nu există etc.); 
> afişarea „ciudată” (cu prea puţine poziţii) a valorilor câmpurilor de tip dată calendaristică, deci şi 
imposibilitatea introducerii de noi date calendaristice în tabelele care au asemenea câmpuri. 
Soluţii’, crearea unui form specializat de culegere a datelor pentru tabela respectivă (o vom face 
în aplicaţia noastră) sau utilizarea comenzii INSERT INTO...; 
> imposibilitatea introducerii/modificării de imagini în câmpuri de tip Picture, cum este foto 
din tabela STUDENTI.  Soluţie”, crearea unui mecanism prin care să se dea utilizatorului 
posibilitatea de a alege un fişier grafic de pe disc şi legarea acestuia de câmpul din baza de date 
(o vom face în aplicaţia noastră). 
Ultimele două probleme prezentate survin în etapa de populare a tabelelor, dar despre aceasta 
încă nu am discutat; deocamdată ne găsim la etapa creării structurii bazei de date. 
în loc de crearea asistată a schemei bazei de date cu Visual Data Manager se poate proceda la 
folosirea exclusivă a comenzilor SOL CREATE TABLE şi ALTER TABLE, scriindu-le rând pe 
rând în fereastra SQL Statement a accesoriului Visual Data Manager şi executându-le. 
Prezentăm mai jos şcript-ul de creare a structurii bazei de date. Comenzile CREATE TABLE şi 
ALTER TABLE sunt separate prin linii vide. De remarcat că, pentru, câmpurile de tip numeric, sunt 
folosite subtipurile acceptate de bazele de date de tip Jet. (Single, Smalllnt, DateTime) şi 
nu se precizează nici o lungime a câmpului, aceasta căzând în sarcina motorului bazei de date. Este 
necesar a preciza lungimea doar pentru câmpurile de tip text (Text este notația Access, dar în SQL 
se foloseşte tipul Char). Câmpul foto, din tabela STUDENTI, este declarat de tip 
OLEObject (se poate folosi şi tipul Binary), aici urmând să stocăm o fotografie 
scanată a studentului (dacă este disponibilă). 


Listing A. 1. Script-ul de creare a bazei de date GeStud 


REM script de creare a tabelelor si 
restricţiilor REM dintr-o BD de tip Jet 


"crearea tabelelor 
create table specializări (codspec char(l), denspec char(40)) 


create table discipline(coddisc char(7), ccefsem single, coefteza 
single, dendisc char (50), ar.univ smallint) 


creat cabl studenti (matricol char (8), numepre.n char (36), 
datanast datetime, foto OLEobject) create table inscneri(matricol 
char(8), anuniv smallint, anstud smallint, codspec char(l), grupa 
smallint) 


create table notele(matricol char(8), coddisc char(7), dataex date, 


n 


a 


( 


a 
k 


a 


a 


( 


a 
Cc 


a 


( 
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w 


a 
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otas single, notat single, anuniv smallint) 


crearea cheilor primare 
lter table specializări add constraint pk_ specializari primary key 
codspec) 


lter table discipline add constraint pk discipline primary 
ey (coddisc, anuniv) 

lter table studenti add constraint pk studenti primary key 
matricol) 

lter table inscrieri add constraint pk_inscrieri primary key 


matricol, anuniv, codspec) 


lter table notele add constraint pk_note primary key (matricol, 
oddisc, dataex) 


crearea cheilor străine si a restricţiilor referentiale 
lter table inscrieri add constraint fk _ inscrieri spec foreign key 
codspec) references specializări 

L 


lter table inscrieri add constraint fk ir.scrieri stud foreign 
ey (matricol) references studenti 


lter table notele add constraint fk_note_stud foreign key 


(matricol) references studenti 


lter table notele add constraint fk_note_disc foreign key (coddisc, 
nuniv) references discipline 
Folosirea exclusivă a comenzilor SQL este o operaţie consumatoare de timp şi, pentru înțelegerea 


script-ului, sunt necesare cunoştinţe de SQL de nivel mediu. Pentru hobby-iştii în ale programării 
poate reprezenta totuşi un punct de interes... 


Utilizarea exclusivă a comenzilor SQL nu este lipsită de interes, întrucât oferă o cale mai rapidă 


(nu şi prima dată, dar veţi constata utilitatea sa dacă va fi nevoie să refaceti structura bazei pe 
calculatorul propriu sau pe un altul) de creare a tabelelor bazei de date (fişierul .mdb trebuie creat în 
prealabil, dar pentru acest lucru e nevoie de 2-3 linii de program Visual Basic, veţi vedea...). Pentru 
automatizarea acestei sarcini, va trebui să scrieţi textul script-ului într-un fişier text oarecare, 
salvându-l apoi pe disc (în exemplul nostru i-am spus script.sql - extensia nu contează din moment ce 
este vorba despre un fişier ASCII). De remarcat că în acest fişier va trebui să scrieţi fiecare comandă 
pe un singur rând şi NU pe câte două, cum apar ele mai sus din lipsă de spaţiu. Pentru lizibilitate, 
este bine să păstraţi spaţiile dintre rânduri. 


S 


Script-ul urmează a fi. rulat, adică încredințat unei interfeţe care va citi şi interpreta în manieră 
QL fiecare linie. De unde procurăm această interfață? Nimic mai simplu. Vom redacta o procedură 


Visual Basic care: 
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> să preia ca parametri numele fişierului script şi eventual numele dorit pentru baza de 


date (în exemplul nostru se foloseşte numele implicit Test .mdb; calea bazei de date a 

fost considerată aceeaşi cu a proiectului curent, fiind obţinută prin proprietatea Path 
a 

obiectului global App - în cazul utilizării unei alte căi, procedura va fi modificată 

corespunzător); 


> să creeze şi deschidă fişierul .mdb necesar, cu numele transmis ca parametru, în calea aleasă la 
lansarea procedurii; 
> să localizeze şi să deschidă pentru citire fişierul text (script-ul) creat şi salvat cum s-a arătat mai 
sus şi al cărui nume a fost transmis ca parametru; 
să citească linie cu linie (am folosit Line Input) script-ul; 
să execute ca fraze SQL liniile care au sens (sărindu-le pe cele libere sau cu 
comentarii); 
> să închidă script-ul şi baza de date după terminarea creării structurii. 
Aşadar, într-un proiect nou de tip Standard EXE (care poate fi punctul de plecare pentru 
întreaga aplicaţie) adăugaţi un modul de cod standard în care scrieţi procedura al cărei cod-sursă este 
prezentat în Listing A.2. 


Listing A. 2. Procedură pentru crearea automatizată a unei baze de date Access 


Public Sub CreareBD(ByVal strNumeFisScript As String, 
Optional ByVal strNumeBD As String = "Test.mdb") 
> eee ae OE ae Oe ie ae, a a ee TE FEISS RIS ORR k k k ok k E E k k ok kgg k OK ok 


E kit k kkk kkk x * procedura apeleaza un script de creare a 
schemei yngi baze de date (scriptul trebuie sa existe ca fişier 
text) 


' utilizare: CreareBD "c:\scriptulmeu.txt", "bazameadedate.mdb" 
» AEG AS AS EE ale Ale E ale ale E ale ale ale ale ale ale ale ale ale ale ale ale ale ale ale ale ae ale ae ae ale ae ae ale ae ae ale ale ae ae ae ae ale ae ae ale ae ae ae ae OK OK OK OK OK OK OK OK OK k k On Error GoTo 


bandon 

a ences Dir (cale-nume-si-extensie-fisier) 

' da rezultatul null-string 

1 daca nu exista fişierul -scris intre paranteze If 


Dir(strNumeFisScript) = "" Then 
MsgBox "Nu emtista fisierul script specificat!", vbCritical, 
"Hroage" 
Else 


Dim BD As Database 
Dim strSQL As String, strNumeCompletBD As String 
'strNumeCompletBD = App.Path & "\" & strNumeBD ! se creeaza baza 
de date (atentie sa nu existe in prealabil) Set BD = 
CreateDatabase (strNumeCompletBD, dbLangGeneral) 
Open strNumeFisScript For Input As #1 ' se parcurge fisierul- 
script, .in care fiecare linie ® ar trebui sa fie o comanda 
CREATE TABLE sau-"ALTER TABLE 
Do While Not E0F(1) 
Line Input #1, strSQL 
' şirul nu trebuie sa fie spaţiu, nici comentariu 
If Len(Trim(strSQL)) > 1 And _ 
Left (Trim(strSQL), 1) o ""And _ 
UCase (Left (Trim(strSQL), 3)) o "REM" Then 
Debug.Print String(80, "-") 
Debug. Print strSQL 
1 se executa comanda SQL citita din fişier 
BD: Execute” sitesOL 
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End If 

Loop 

Close #1 

BD.Close 

Set BD = Nothing 

Debug. Print "-------- Gata ------- Ar 
End If 
Exit 
Sub 
Abandon 


1 se afiseaza eroarea 

MsgBox "Eroare " & Err.Number & vbCrLf & Err.Description, 
vbExclamation Debug. Print "Abandon ==" 

' se inchide fişierul script daca era cumva deschis . 
If FreeFilet) > 1 Then Close End If 

1 se distruge referinţa la baza de date Set BD=Nothing End 


Sub 
O discuţie specială merită comanda: 


Set BD = CreateDatabase(strNumeCompletBD, dbLangGeneral) care creează 
şi deschide o nouă bază de date Jet, ce poate fi accesată ulterior printr-o variabilă-obiect (în cazul 
nostru BD). în această comandă, al doilea argument semnifică limba folosită, este obligatoriu de 


precizat şi este important pentru sortarea corectă a datelor după valorile unor câmpuri de tip text. 
Anumite limbi (germanice, est-europene, asiatice) folosesc caractere speciale care nu există în 
alfabetul latin de bază (şi nici în cel englez) şi care influenţează sortarea (de exemplu, în română T 
este după T, dar din păcate nu există încă opţiunea dbLangRomanian, deci pentru moment vă veţi 
abtine de la folosirea diacriticelor în numele studenţilor, disciplinelor etc.). 

O dată scrisă procedura, dacă există şi script-ul, se poate trece la execuţie direct din fereastra 
Immediate, astfel (numele fişierelor depind de la caz la caz): 

CreareBD "c:\script.sql", "BDNoua.mdb" 

După această comandă, tastând Enter, ar trebui să observăm mesajele afişate de program in 


fereastra Immediate (vezi figura A. 10). 


crearebd "c:\script.sql", "BDNoua.mdb" 
create table specializări (codspec char (1), denspec char (40) ) 

create table discipline (coddisc char (7), coefsem single, coefteza single, dendisc char (50), anuniv smallint) 
create table studenti (matricol char(8), numepren char (36), datanast datetime, foto binary) 

create table inscrieri (matricol char (8), anuniv smallint, anstud smallint, codspec char(1), grupa smallint) 
create table notele (matricol char (8), coddisc char(7), dataex date, notas single, notat single, anuniv smallint) 
alter table specializări add constraint pk_specializari primary key (codspec) 

alter table discipline add constraint pk discipline primary key (coddisc, anuniv) 


Figura A. 10. Execuţia script-ului în fereastra immediate 


Recomandare: în primă instanţă, pentru verificarea procedurii, se va comenta (sau omite) 


instrucţiunea On Error. Astfel se vor localiza mai uşor (folosind instrumentul 
Debugger) liniile de program care creează probleme. Ulterior se va restaura 
mecanismul de tratare a erorilor, prin decomentarea (scrierea) instrucţiunii On Error. 


Oricare ar fi modalitatea de creare a schemei bazei de date, popularea tabelelor necesită ceva efort 
într-o etapă ulterioară. întrucât în continuare vom proiecta rapoartele aplicaţiei, ar fi util să dispunem 
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de câteva date de test, pentru a examina şi ajusta aspectul final aî rapoartelor înainte de rularea 
aplicaţiei cu date reale. Rămâne la latitudinea cititorului modalitatea în care va popula tabelele bazei 
de date. 

Proiectarea rapoartelor 

Machetele rapoartelor (listelor imprimabile) ale aplicaţiei vor fi construite cu ajutorul modulelor de 
tip Data Environment şi Data Report (prezentate în Capitolul 19). La capitolul „cerinţe 
informaţionale” am identificat un număr de şase situaţii necesare. Acum avem de ales dacă vom 
proiecta un număr de şase rapoarte distincte, fiecare cu sursa sa de date bine stabilită sau un număr 


mai mic de rapoarte care să fie parametrizate spre a afişa fie mai puţine coloane, fie mai puţine linii. 
A doua soluţie este sigur mai elegantă decât prima, dar cere o mai mare minutiozitate. Am ales 
cea de-a doua cale, întrucât introduce elemente noi, de nivel mai înalt, neprezentate în Capitolul 19. 
Pe de altă parte, solicită creativitatea programatorului. Mai întâi, am împărţit cele şase rapoarte 
inițiale în două categorii mari: o categorie va afişa informaţii privind studenţii şi încadrarea lor în 
diferite specializări, grupe de studii etc.; a doua categorie va afişa rezultatele obținute la diferitele 
examinări de un student anume sau dimpotrivă, rezultatele tuturor studenţilor la un examen dat. 
Pentru a atinge aceste scopuri, va trebui să ne „luptăm” cu: 
> legarea dinamică a unei machete de raport, proiectate în prealabil, la un obiect de tip 
Recordset ori Command (cele două obiecte nu se confundă: definirea unui obiect 
Command poate atrage crearea implicită a unui obiect corespondent de tip Recordset, 
dar ia fel de bine se pot crea mai multe obiecte Recordset sau nici unul pentru un obiect 
Command oarecare); 
> afişarea unui număr mai mic sau mai mare de coloane (poate avea loc prin manevrarea prin 
cod a obiectelor raportului, stabilind proprietatea Visible=False) ; 
> afişarea unui număr mai mic sau mai mare de linii (prin parametrizarea obiectelor Command 
bazate pe interogări SOL SELECT) ; 
> ordonarea în diferite moduri a rândurilor dintr-un raport (posibilă prin concatenarea unei 
clauze ORDER BY adecvate la proprietatea CommandText a obiectelor Command bazate 
pe interogări SOL SELECT) . 
Vom începe lucrul prin adăugarea în proiectul nostru a unui designer din categoria Data 


Environment, pe care-l vom numi deGeStud şi cu ajutorul căruia se vor modela sursele de 
date necesare rapoartelor. Astfel, obiectul implicit Connectionl va fi redenumit în deGeStud 
şi va fi „dotat” cu proprietăţile (se apelează Properties din meniul contextual): 


Pagină/proprietate Valoare 
Provider Microsoft Jet 3.51 OLE DB 
Connection/Database name <cale>\GeStud.mdb** 
Advanced/Access permissions Sliare Deny None 


* sau o altă versiune (4.0, de exemplu). 
xx calea unde a fost creată în prealabil baza de date GeStud.mdb 
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Vom insera apoi un designer din categoria Data Report. Prima machetă de raport este 
desemnată să producă listele din figurile A.1...A.4. Sursa sa iniţială de date este obiectul de tip 
Command numit dcmStudenti, pentru care se modifică fata de valorile 


Proprietate Valoare 

(Name) demStudenti 

Connection deGeStud 

CommandType ! - adCmdText 

CommandText select s.matricol, numepren,datanast, denspec, anstud, grupa from ((studenti s innerjoin inscrieri i on 
i.matricol=s.matricol) innerjoin specializări sp on sp.codspec=i.codspec) 


Pe baza acestui obiect Connection se creează macheta de raport din figura A. 11, care va fi 
numită drListaStudentilor. 

Se va vedea mai târziu că, deşi în etapa de realizare a machetei trebuie respectate câteva reguli 
stricte, programatorul are un mare „spaţiu de manevră” asupra controalelor raportului, prin 
intermediul codului. Accesul la un anumit control se tace în maniera: numeraport. Sections (index). 
Controls (index). Proprietate= Valoare sau: 

numeraport. Sections (numesectiune). Controls (numecontrol). Proprietate= Valoare Indexul 
arată ordinea in care au fost definite sectiunile/controalele şi începe întotdeauna cu valoarea 1, şi nu 
cu 0 cum este uzual in Visual Basic. Evident, este mai la îndemână să folosim numele unui control 
decât indicele lui, de aceea este indicat ca toate secţiunile şi toate controalele să aibă nume explicite. 

Exemplu: dacă înainte de afişarea raportului am dori să ascundem numărul de pagină (în 

mijloc, jos - controlul respectiv, marcat cu textul Pagina %p din %P a fost denumit 

IbINrPag) şi să atribuim un titlu oarecare raportului (vezi câmpul special marcat în figura cu 

%i), ar trebui să scriem următoarea secvenţă de cod: 

With drlistaStudentilor 


„Sections("PageFfooter") .Controls ("IbINrPag") .visible=Fals 
e .Title="Lista generala a studentilor" 


. Show 
End 
With 
izualizare 
+ + Eo) eg TOE ce E a E Ie I = IS @I.17 
1 1 13 + I + 14 T 


x 


Report Header (ReportHeader) 


Universitatea,.. Faeuitatea... 
4Page Header (PageHeader) 


Mumele si prenumele Specializarea Anul Grupa 
4Detaii (Detaii) 
! txtNumeprerii 
s-Page Footer (PageFooter) 


II 


Se observa că, în zona Detaii, controalele de tip RptTextBox au numele afişate pe ele, cu 


următoarele excepţii: 
> tXtA se numeşte de fapt txtAnStud; 


Pagina %p din %P 1 


Figura A. 11. Macheta raportului drStudenti 
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> txtGr este de fapt txtGrupa (numele lor a fost trunchiat prin dimensionarea câmpului); 
> controalele de tip RptLabel din zona PageHeader se numesc şi ele IlblNumepren, 
lblMatricol,...„,lblGrupa; 
> liniile verticale de demarcaţie dintre controalele de tip RptTextBox din zona Detail se 
numesc Linei...Line8, iar cea orizontală care separă două rânduri consecutive se numeşte 
Line9; 
> textele afişate în controalele de tip Rptlabel corespund proprietăţii Caption; literele 
precedate de procent sunt parametri speciali (titlu, număr pagină, număr total pagini etc.). 
Observaţie: probabil veţi încerca realizarea acestei machete cu ajutorul opțiunii de construire 
automată a raportului, astfel: 
> completarea proprietăţii Data Source cu deGeStud; 
> completarea proprietăţii Data Member cu deSstudenti; 
> apelarea opțiunii Retrieve Structure din meniul contextual al machetei de raport 
(clic-dreapta); 
> rearanjarea şi redimensionarea controalelor în maniera dorită (pentru rearanjarea şi 
redimensionarea „cu mâna liberă”, recomandăm dezactivarea opțiunii Snap To Grid 
din meniul contextual). Tot meniul contextual vă este de folos în alinierea şi ajustarea unor 
controale la dimensiuni identice (NU folosiţi pentru asta opţiunea Format din meniul 
principal); 
> adăugarea manuală a unor controale Labei pentru denumirea universităţii, a facultăţii, 
trasarea de linii de demarcaţie etc. 
In acest caz, NU veţi avea pe macheta dumneavoastră inscripţiile vizibile în figura 
A. 11. Aceasta nu este o problemă: modificaţi corespunzător proprietatea Name _ pentru 
fiecare control, în fereastra Properties. 
încă o observaţie: nu depăşiţi pe lăţimea raportului 8.5 inches (21.6 cm), altfel la 
previzualizare veţi primi mesajul de eroare report width is larger than the paper width (rapoartele 
au fost desemnate să lucreze cu formatul US Letter care are această lățime). De fapt ar trebui să vă 
restrangeti la mai putin, din cauza marginilor; următoarea secvenţă de cod este un compromis ce 
vă permite să afisati un raport de circa 20 cm lăţime (de scris înainte de comanda numeraport. 
Show !1!): 
With drLdstaStudentilor 'sau alt nume de raport 
. TopMargin=0 . BottomMargin=0 .LeftMargin=0 
.„RxghtMargin=0 End With 
Daca e nevoie de un raport mai lat (circa 27 cm), se poate completa programul cu: 
drListaStudentilor.Orientation=rptOrientLandseape 
In cazul crearii asistate, raportul poate fi utilizat numai cu obiectul acStudenti, de care este 
legat intrinsec. Dacă acelaşi raport ar trebui să fie folosit cu recordset-uri aparținând unor obiecte 
Command diferite, atunci el trebuie „rupt” de obiectul dcStudenti. Daca e nevoie, faceţi acest 
lucru după terminarea şi testarea*® raportului, astfel: ştergeţi valorile proprietăţilor DataSource şi 


DataMember la nivelul raportului (în fereastra Properties), iar în codul necesar afişării 
raportului nu uitaţi să introduceţi 


o linie de forma: 
Set <nume-raport>.DataSource = <nume-recordset> 


Alte probleme la afişarea unui raport 

a) afişarea unei imagini 

Controlul Rpt Image permite doar afişarea unei imagini stocate într-un fişier pe disc (de exemplu o 
emblemă, siglă sau ceva similar) dar nu reuşeşte să afişeze câmpuri de tip imagine dintr-o bază de date. 


26 Reamintim că, pentru a testa raportul, îl puteţi declara Startup Object, prin opţiunea de meniu ProjectjProperties. 
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Din această cauză, în raportul de faţă am renunţat la afişarea fotografiei studentului. Din păcate, 
rezolvarea unei astfel de probleme ar implica folosirea unui alt generator de rapoarte, mai sofisticat. 

b)  numerotarea rândurilor din zona Detail 

Aceasta pare a fi o problemă spinoasă în condiţiile folosirii rapoartelor native Visual Basic. în 
generatoarele de rapoarte din Access sau din Visual FoxPro, problema se rezolvă simplu, prin crearea 
unui câmp calculat; aici cîmpurile calculate însă nu pot fi plasate în zona Detail. Am putea folosi, în 
zona Report Footer, un obiect de tip  RptFunction, care să numere 
(FunctionType=rptFuncRCnt) liniile raportului, dar afişarea sa nu va fi posibilă decât la sfârşit, 
ca număr total de studenți. Nu asta se doreşte însă, ci afişarea unui număr de ordine în stânga fiecărui 
student. Cerinta este rezolvabilă printr-un artificiu destul de greoi: 
> crearea în macheta raportului a unui câmp special (de tip RptTextBox) pentru numărul curent, 

după cum se arată în figura A. 12 (punctul marcat cu (1)). 


.1.4.1.5.1m -ie 
himla Dami 
4Report Header (ReportHeader) 


o| 


Universitate fa... 
Facultatea... 


A | 


+ Page Header (PageHeader) 


[| 1; | Humele si prenumele ! M 
<F Detail (Detail) 
r | }txtNrC/MNtfnepren: |ixtMe 


Page Footer (PageFooter) 


A b 7 Pai 


B>d Tm, 
Ba 


rt Enatar [PanartE ata, 


Figura A. 12. Adăugarea controlului txtNrCrt 


> crearea unui obiect Recordset nou, care initial are un câmp numit nrcrt, nepopulat şi la care 
se adaugă câmpurile recordset-ului de afişat, apoi, printr-o buclă For. . .Next sau similară, are loc 
popularea noului obiect Recordset cu datele celui vechi (vezi Listing A.3). E necesar acest lucru 
deoarece la un recordset creat cu SELECT nu se pot adăuga câmpuri; 

> stabilirea recordset-ului nou ca sursă a raportului, legarea dinamică a controlului txtNrCrt la 


câmpul corespunzător şi afişarea raportului (vezi Listing A.4). 
Listing A. 3. O procedură pentru copierea şi numerotarea unui recordset 


Public Sub CopieNumaraRecordset (rsOriginal As ADODB.Recordset, 
rsCopie As ADODB.Recordset) 


' aceasta procedura foloseste la copierea unui ' recordset in 
altul, adaugand o coloana cu ' numere de ordine (vezi raportul 
drListaStudentilor) 


» KKEKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK 


' cateva variabile locale: 
Dim i As Long, j As Long, k As Long, m As Long ! se deschide 


recordset-ul sursa, daca era inchis if rsOriginai.State = 
adStateClosed Then rsOriginal.Open 1 se acceseaza toate 


inregistrarile, 
l spre a obţine numărul lor in propr. RecordCount 
rsOriginal.MoveLast k = rsOriginal.RecordCount ! Întoarcere la 


prima inregistrare rsOriginal.MoveFirst 
1 se creeaza câmpurile recordset-ului destinatie ' mai intai 
un camp pentru nrert rsCcpie.Fields.Append "nrert", adVarChar, 
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6 ! apoi se adauga câmpurile recordset-ului sursa For i = 0 To 
rsOriginal.Fields.Count - 1 
rsCopie.Fields.Append rsOriginal.Fields (i) .Name, 


rsOriginal.Fields(i).Type, rsOriginal.Fields(i).Precision 
Next i 
' se deschide recordset-ul copie, in mod citire-scriere 
rsCopie . Open LockType : =adLockOptirrdstic 


’ acum se parcurge originalul si se insereaza datele 
' in recordset-ul copie 
With rsOriginal 
For m=1 Tok 
rsCopie.AddNew 
rsCopie.Fields(0).Value =m & 
For j = 1 To rsOriginal.Fields.Count 
rsCcpie.Fields (j) .Value = rsOriginal.Fields{j - 
1).Value Next j 
rsCopie.Update 


wow 


.MoveNext 
Next m 
End With 


rsOriginal.Close 
Set rsOriginal = Nothing 
End Sub 
Această procedură a fost plasată într-un modul de cod de standard (la acest modul şi rolul lui 
vom reveni pe parcurs). 


Listing A. 4. Procedura pentru legarea dinamică a unui recordset la raportul 

drListaStudentilor 

Public Sub LegareDir.amica () 

Dim rsListaStudentilor As New ADODB.Recordset ' indicam 

utilizatorului sa astepte 

Screen.MousePointer = vbHourglass ' rsdcmStudenti este recordset- 

ul pe care-l ! creeaza obiectul demStudenti 

CopieNuraaraRecordset deGeStud.rsdemStudenti, rsListaStudentilor 

' atribuirea dinamica a sursei de date a raportului ' pe care am 

avut grija sa-l facem ! "unbound" dupa proiectarea sa 

Set drListaStudentilor.DataSource = rsListaStudentilor 

stabilirea unor optiuni pentru raport ! vezi procedura 

MarginiRaport ' in modulul general mdUtilitare 

MarginiRaport drListaStudentilor, 1, 0.5, 0.5, C.5 ' legarea 

câmpurilor raportului la sursa de date, 

' toate fiind initial in starea "unbound" 

With drListaStudentilor.Sections("Detail" ) 


-Controls("txtnrert").DataField = _ 
rsListaStudentilor.Fields("nrcrt") .Name 
-Controls("txtnumepren") .DataField = 


rsListaStudentilor.Fields{"numepren") .Name 
„Controls ("txtmatricol") .DataField = _ 
rsListaStudentilor. Fields ( "matricol" ) 
Narr.e .Controls("txtdatanast") .DataField = _ 
rsListaStudentilor.Fields("datanast") .Name 
Controls ( "txtder.spec" ). DataField = _ 
rsListaStudentilor.Fields ("denspec") .Name 
-Controls("txtanstud") .DataField = _ 
rsListaStudentilor. Fields ( "anstud") 
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Narr.e .Controls("txtgrupa") .DataField = _ 
rsListaStudentilor.Fields("grupa") .Name 

End With 
' gata aşteptarea 
Screen.MousePointer = vbDefault 
End Sub 

Această procedură obţine prima variantă de listă, cea generală (prezentată in figura A.l). Pe linia 
marcată cu caractere bold, observați apelul procedurii de copiere şi numerotare a recordset-ului, care a 
fost prezentată integral în listing-ul A.3. Afişarea propriu-zisă nu este tratată aici, dar va fi reluată mai 


jos, la secţiunea form-uri. 

Pentru obţinerea modelului de listă nr. 2 este nevoie de două acţiuni: 
> filtrarea sursei de date a raportului astfel încât să se extragă numai studenţii unui anumit an; 
> ascunderea coloanei „Anul” din macheta raportului. 

Prima cerinţă este mai delicată şi presupune crearea unui obiect Command parametrizat. Pentru 
edificare, prezentăm figura A. 13 (pentru a obţine această fereastră, alegeţi Properties din meniul 
contextual al obiectului dcmStudenti), în care se arată cum s-a modificat interogarea SQL care stă 
la baza obiectului Command numit dcmStudenti. Astfel, clauza WHERE conţine nu mai putin 
de 4 parametri: 
>  pCeva - dacă este 1, atunci condiţia se transformă în WHERE "1=1" OR ... (adevărată 

întotdeauna, deci obţinem lista generală); dacă este 0, atunci intră în calcul una dintre condiţiile de 

după primul OR; 
> pAnStud - dacă i se dă o valoare, iar pCeva este 0, atunci se vor filtra doar studenţii anului 
respectiv (modelul de listă nr. 2); 
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> pGrupa, pCodSpec - funcţionează similar cu pAnStud şi permit obţinerea modelelor de 
listă nr. 3 şi 4. 


EESITIESE JSâi-- ' xj 


General j Parameters ] Relation j Gtouping j Aggregates j Advanced] Command Name: 


[dcmStudenti” Connection: [dcGeStud 
- Source of Data ma 


r Database Object: 
I Object Name: | 


I g 3 qz] 
select s. matricol, numeprendatanast, denspec, anstud, C T A l OVI Sa tx? "o qi 
grupa 1 
aPllCam ta from ((studenti s inner join înscrieri i on X XAN » * » * 
î.matricol=s.matricol) inner 
I join specializări sp on sp.codspec=i.codspec) where 1=pCeva 
mmm a ee cae 32 
7 Q ' (anstud=pAnStud or grupa=pGrupa or i.codspec=pCodspec] y o qo 
1 A 
a 37 
aşa 57 
Jgt 65 
lip 192 
il Name: 
jpCeva 
3 Input zl 
tdm O ZI 
JO 
jasi 
Host Data “}Tnteger (VT_I2) Ei 
Type: ZI 
jT rue z 3 
li E 
Help 
«| 


Figura A. 14. Proprietăţile parametrului pceva 


Parametrii trebuie să fie declaraţi cu tipuri de date şi valori implicite, iar pentru aceasta se 
foloseşte pagina Parameters, afişată în figura A. 14. Tabelul următor recapitulează proprietăţile celor 4 
parametri: 


Name Data Type Size Host Data Type Value 
pCeva adSmalllnt 1 Integer 1 
pAnStud adSmalllnt 1 Integer 0 
pGrupa adSmalllnt 1 Integer 0 

pCodSpec adVarChar 1 String 0 


Observatie: pentru parametrii de tip sir de caractere (adChar, adVarChar etc.) este 
neapărată nevoie să se precizeze corect proprietatea Size (in cazul de faţă se cunoaşte că în baza 
de date câmpul CodSpec este de tip text, cu lungimea de 1 caracter). 
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Atenţie: modificarea interogării SQL în fereastra din figura A. 13 cere automat redefinirea 
tuturor parametrilor. 
Acestea fiind explicate, dacă dorim să afişăm lista studenţilor unui anumit an, vom include în 
program o secvenţă cc arată cam aşa: 
With deGeStud.Corranands ("dcmStudenti"! 


„Parameters (0) .Value =# 0 ' devine "1=0" - False 
„Parameters (1) .Value = 1 ' anul 1 


End With 
' dezactivarea câmpului AnStud si a antetului sau 
With drListaStudentilor 
„Sections ("PageHeader") .Controls("IblAnStud") .Visible = False 
„Sections ( "Detail").Controls("line?") .Visible = False .Sections 
( "Detail") .Controls("txtAnStud") .Visible = False End With 
' afişarea raportului t drListaStudentilor.Show ' 
revenire la valorile initiale With deGeStud 


Corrvmands ("dcerr'.Studer.ti " ) 
.Parameters(0).Value = 1! devine "1=1" = True 
„Parameters (1).Value = 0! nici un an 

End With 


Fireşte, elegant este să se preia valorile acestor parametri prin intermediul unui form, care să dea 
utilizatorului posibilitatea să aleagă ce valori doreşte. Vom detalia acestea la prezentarea form-urilor. 

în continuare, vom expune liniile directoare pentru realizarea celui de-al doilea raport, destinat 
afişării listelor cu rezultatele obţinute la examene. Pentru început, vom crea un obiect de tip Command 


numit dcmRezExam, ale cărui proprietăţi sunt prezentate în următorul tabel. 


Proprietate Valoare 
(Name) demRezExam 
Connection deGeStud 

CommandType 1 - adCmdText 

CommandText 


Select D.Dendisc, N.Dataex, N.Matricol, S.Numepren, N.Notas, D.Coefsem, N.Notat, D.Coefteza, notas * 
coefsem + notat * coefteza AS notafin From Discipline D, Notele N, Studenti S Where d.Anuniv = n.Anuniv 
And d.coddisc=n.coddisc and N.Matricol = S.Matricol And (l=pCeva or n.coddisc=pCodDisc And 


n.dataex=pDataEx Or s.matricol=pMatricol) 


De data aceasta interogarea SQL e aproape monstruoasă, întrucât conţine şi patru parametri, ce 
permit: 
> afişarea tuturor rezultatelor din toate timpurile şi pentru toţi studenţii (implicit) - nu e cazul; 
> afişarea rezultatelor unui examen dat la o dată anume, pentru toţi studenţii (modelul de lista nr. 5); 
> afişarea rezultatelor din toate timpurile, pentru un anumit student (modelul de listă nr. 6). 

Nota finală se calculează în interogarea SOL ca medie ponderată. Trebuie acordată atenţie 
parantezelor, care modifică prioritatea operatorilor logici. Astfel, dacă în exemplul de mai sus ar lipsi 


parantezele din clauza WHERE, aceasta s-ar executa greşit (din cauza OR-urilor prezente în ea nu s-ar 
efectua jonctiunile dintre tabele). 
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Figura A. 15. Macheta raportului drRezultateExamene 


Macheta raportului este cea din figura A. 15. De această dată s-a renunţat la numerotarea rândurilor 


şi s-a preferat legarea statică a raportului la obiectul dcmRezExam (DataSource=deGeStud şi 


Dat aMember=decmRezExam) . în felul acesta codul necesar piegătirii şi afişării raportului va fi mai 
compact. în tabelul de mai jos sunt redate 


(Name) DataMember DataField 


IblUniv 


lblFacult 


lblTitlu 


lbIDendisc 


lb1lDataEx 


IblNumepren 


1Matrico 


lParcurs 


INotasS 


lTeza 


INotaT 


b 

b 

b 
lblCoefsem 

b 

b 

b 


1Coeftez 


Ib1lNotatin 


txtDendisc| dcmRezExam Dendisc 


txtDataEx dcmRezExam Dataex 


txtNumepren| dcmRezExam Numepren 


txtMatrico| dcmRezExam atricol 


txtNotas dcmRezExam otas 


txtCoefsem| dcmRezExam Coefsem 


txtNotaT dcmRezExam otat 


DO] DOP NRO] CY] CO} NI] Oy] OT} AS] GO] NIe CO] WO] CO] SI] OD] GT] AB] GW] DN] Ff 
ND] Perg 
H 


txtCoeftez| dcmRezExam Coefteza 


N 
Ww 


txtNotafin| dcmRezExam Notafin 
lbIDataOra| ` i 


N 
A 


25 IbINrPag = 


Textele afişate în controalele de tip Rptlabel corespund proprietății Caption. Liniile de 


demarcație verticale din zona Detaii sunt denumite, de la stânga la dreapta, 
Linei...LinelO, iar cea orizontală este Linell. 
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Aceste proprietăţi sunt important de stabilit şi de cunoscut, deoarece modelele de liste nr. 5 şi 6 au o 


structură orizontală diferită, iar noi folosim aceeaşi machetă. Vom proceda la ascunderea şi mutarea 
unor controale, prin cod, dar acest lucru va fi evidenţiat mai jos, la discuţiile despre form-uri şi meniuri. 


Proiectarea form-urilor, meniurilor şi a altor module ale aplicaţiei 
Operatiile de culegere a datelor necesare în această aplicaţie se rezumă la: 


> actualizarea nomenclatorului de studenţi; 

> actualizarea nomenclatorului de discipline; 

> actualizarea nomenclatorului de specializări; 

> înscrierea studenţilor la o anumită specializare, într-un an şi ogrupă; 

> preluarea notelor obţinute de fiecare student pe parcursul anului şi la examenele finale. 


Ipruject - pjGeStud 


n33Ci i 


i frmCadru (Cadru.frm) 

ta  frmOiscipline (Discipline, frm)  i-‘fcjU (Examene.frm) tj 
frmFiltruExamene (frmFiltruExamene) frmFiitruStudenti (Filtru.frm) d frmtnscrieri 
(Inscrieri.frm) tj frmSpee (Spec.frm) ta frmStudenti (Studenti.frm) 

Modules 


frmExamene 


«£ mdUtil.tare (mdutilicare.bas) 
L. > User Controls 
ctINavBtn (NavBtn.ctl) 
^ Designers 
; A deGeStud (deGeStud.Dsr) 
’ drListaStudentilor (drListaStudentilor.Dsr) 
^ drRezultateExamene (drRezuitateExamene.Dsr) 


Figura A. 16. Structura proiectului GeStud 

Cele cinci operaţii vor necesita tot atâtea form-uri de culegere a datelor. in plus mai este nevoie de 
2-3 form-uri pentru preluarea parametrilor privind afişarea rapoartelor aplicaţiei. 

O aplicaţie care „se respectă” dispune şi de un ecran introductiv (splash screen), care realizează o 
prezentare grafică şi textuală a aplicaţiei, rămânând afişat un timp (în care de obicei aplicaţia execută 
unele operaţii de initializare care consumă timp). Vom adăuga în proiect form-ul frmSplash, cu 
ajutorul şablonului pe care Visual Basic îl are deja creat (în figura A. 17 se arată o parte din dialogul 
Add Form). Proprietăţile controalelor acestui form se modifică după dorinţă, pentru a-i da aspectul din 
figura A. 18. în mod normal, un astfel de form dispare la apăsarea unei taste. Pentru a-l face să dispară 
după 3 secunde, controalelor existente li se mai adaugă un Timer care se setează la un interval de 3-5 
secunde şi a cărui procedură invocă instrucțiunea Unload Me. în listing-ul A.5 se prezintă integral 
codul form-ului frmsplash. 


Forn VB Data Form About Dialog 
Wizard 
-J — LJ kam — 
+ | ODBC Login Options Dialog ENTRIES) Tio of the Day Web Browser 


[hee Open 


Figura A. 17. Adăugarea unui form de tip "Splash Screen" 
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Figura A. 18. Form-ul frmSplash Listing A. 5. Codul form-ului frmSplash 


Option Explicit 
3 : Mm ..... : ' 
Private Sub Form KeyPress (KeyAscii As Integer) 
Unload Me 
End Sub 


Private Sub Form Load() 
lblVersion.Caption = "Version " & App.Major & & 
App.Minor & & App.Revision 
TbIProductName.Caption = App.Title 
End Sub 


Private Sub Framel Click() 
Unload Me 
End Sub 


Private Sub Timerl Timer() 
Unload Me End Sub 

Vom trece la descrierea celorlalte machete de ecran. Astfel, pentru actualizarea 
nomenclatorului de studenţi se va utiliza form-ul frmStudenti, al cărui aspect il puteţi vedea în 


figura A. 19. 
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Urmează o paranteză mai vastă, căci pe form-ul din figura A. 19 se observă un grup de nouă butoane 
(CommandButton) care sunt destinate navigării într-un set de înregistrări (Recordset), dar si 
actualizării acestuia. în cazul de faţă este vorba de recordset-ul aparţinând controlului Data vizibil pe 
form. Cum mai multe form-uri ale aplicaţiei utilizează aceeaşi manieră de lucru, am considerat util să 
includem aceste nouă butoane (plus câteva invizibile) într-un obiect de tip UserControl. Am inclus 
acest obiect chiar în proiectul curent, deşi, după cum am arătat în Capitolul 21, există şi varianta creării 
unui proiect de tip ActiveX Control şi compilării separate ca bibliotecă (fişier .OCX) . 

Controalele de tip Text şi Labei nu necesită comentarii. Cele 9 butoane formează un array de 
controale numit cndNavigare. Cele patru butoane din dreapta au Style=1 (Graphical) şi afişează 
iniţial imagini bitmap de mici dimensiuni (24x22 pixeli), care în aplicaţia noastră sunt stocate în 
subdirectorul Graphics. Initial înălțimea controlului ct NavBtn este exact înălțimea butoanelor 
(vezi procedura-eveniment Initialize), dar la acţionarea butonului „Cauta...” înălţimea creşte 
conform figurii A.20 (de aceea e nevoie de spaţiu suficient pe form-ul care va folosi aceste butoane). 


[EET ag E E EEE) 


Ehime mies | — GF a 


[ial 
I< <] Cauta... j STSTTIIŢET ™oT 
Se oe OS ae We a OS te da ud pa ee 
na 101 
Figura A. 19. Aspectul form-ului frmStudenti 
Cauta... > 
1 
| cboOpef jtxtCriteriu .................. 
+ ++ Completati criteriul, apoi ENTER ' 
Figura A. IstCimpuri 20. Aspectul controlului ct LNavBtn în etapa de proiectare 
La nivelul controlului s-a definit o proprietate numită RecSet, de tip 
Object, care la folosirea efectivă a controlului este pusă în legătură (dinamic) cu 


un obiect de tip Recordset. In plus, deşi fiecare buton are propria sa procedură de clic, cu un mare 
grad de generalitate, s-a declarat şi un eveniment la nivel de control, numit BtnClick. Acesta ne va 
permite să aflăm, dintr-o aplicaţie „consumatoare”, care a fost butonul pe care utilizatorul a efectuat clic; 
este un indiciu util pentru operaţii specifice unor anume tabele. Declanşarea acestui eveniment are loc 


după ce au fost tratate clic-urile din clasa de bază. 


Codul controluiui-utiiizator ct INavBtn este prezentat în listing-ul A.6. Atenţie mai ales Ia codul 
aferent butonului de căutare: criteriile de căutare se formează printr-o mai multe concatenări dintre care 
nu trebuie să omiteti caracterele delimitatoare „apostrof (pentru constante de tip şir de caractere) sau 
„diez” (pentru constante de tip dată calendaristică). Nu se pun caractere de delimitare pentru câmpurile 


numerice. 
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Listing A. 6. Codul aferent controlului ct1NavBtn 
Dim m RecSet As Object ' variabila de tip proprietate Dim 


intlnitH As Integer ' inaltimea inițiala Event 
BtnClick (Index As Integer) 


Private Sub UserCcntrol Initialize() intlnitH = 
cmdNavigare(0).Height End Sub 


Private Sub cmdKavigare Click(Index As Integer) 
Static blnAd As Boolean, blnMd As Boolean, olmgVeche As Object With 
RecSet Select Case Index Case 0 


-MoveFirst 
Case 1 

If Not .BOF() Then .MovePrevious 
Case 2 


' butonul de cautare; se populeaza lista de câmpuri ' 
cu cele citite din proprietatea Recset 
Height = intlnitSize + IstCimpuri.Height + 600 
IstCimpuri.Clear cboOperator. Listlr.dex = 0 For i = 0 
To .Fields.Count - 1 Select Case .Fields(i).Type ! se 
exclud citeva tipuri de câmpuri t in care nu se pot 
face căutări 
Case dbLongBinary, dbBinary, dbCurrency, dbGUID, 
abMemo, dbTimeStamp, dbVar3inary ! nimic Case Else 
' se adauga numele câmpului in lista 
IstCimpuri.Addltem .Fields(i).Name End Select Next i 


If IstCimpuri.ListCount o 0 Then IstCimpuri.Listlndex = 
Case 3 


If Not .EOF() Then .MoveNext Case 4 
-MoveLast Case 5 


If Not blnAd Then .AddNew 
ActivareButoane False, Index 
' memoram temporar imaginea existenta pe buton Set 


olmgVeche = cmdNavigare (Index) .Picture ' nici o 
imagine cmdNavigare (Index.) . Picture = 
LoadPicture ("") cmdNavigare (Index) .Caption = 


"&Comite" blnAd = True 
Else 


„Update 
ActivareButoane True, Index 
reafisam fosta imagine a butonului Set 
cmdNavigare (Index) .Picture = olmgVeche 
cmdNavigare (Index) .Caption = "" blnAd = False End If Case 6 
If Not blnMd Then .Edit 
ActivareButoane False, Index 
' memoram temporar imaginea existenta pe butor. 


"Set olmgVeche = cmdNavigare (Index) .Picture 'nici o 

imagine cmdNavigare (Index) .Picture = LoadPicture("") 

cmdNavigare (Index) .Caption = "&Comite" blnMd = True 
Else 

„Update 


ActivareButoane True, Index 

' reafisam fosta imagine a butonului Set 
cmdNavigare (Index) .Picture = olmgVeche 
cmdNavigare (Index) .Caption = "" blnMd = False End If Case / 
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ActivareButoan 


If .BOF() Or .EOF() Then 

MsgBox "Nu exista nimic de sters!", vbExclamation, 

"Stergere..." 
Else 
On Error GoTo erori 

If vbYes = MsgBox("Sunteti sigur(a)?", _ 

vbYesNo + vbQuestion, "Stergere...") Then ! se sterg 

Inregistrar a curenta .Delete If Not .EOF() Then .MoveNext 
Elself Not .BOF() Then .MovePrevious End If End If End If Case 
8 

If . EditMode o dbEditNone Then 


Index Select 


True, 


Case .EditMode 
"se abandoneaza 


dbEditlnProgress 
cmdNavigare(6).Caption = 
cmdNavigare(6).Picture = 
"\graphics\edit.bmp”) 
"se abandoneaza adaugarea unei 
"deci modificam imaginea de pe 
dbEditAdd 
cmdNavigare(5).Caption = 


ditarea unei inregistrari, 
"deci modificam imaginea de pe 


butonul d ditare Cas 


mw 


LoadPicture (App.Path & 


inregistrari, 
butonul de adaugare Case 


mw 
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cmăNavigare (5) .Picture = LoadPicture(App.Path & 
"\graphics\new.bmp") 
End Select 
.CancelUpaate ‘abandon operație de adaugare/modificare 
blnAd = False blnMd = False 


Else 
sgBox "Nu exista nimic de anulat", 
vbExclamation, "Anulare operatie..." 
End If 
End Select End 


With 

+ aici se produce evenimentul Click ai clasei de baza 
RaiseEvent BtnClick (Index) 

Exit Sub erori: 


TratErori Err.Number, Err.Description, Err.Source End 
Sub 


Sub ActivareButoane(blnStare As Boolean, k As Integer) 

' dezactiveaza/activeaza selectiv butoanele For i = 0 

To cmdNavigare.Count - 2 If k <> i Then ' butonul 
apelant si 
butonul ' 
W Undo LL 
vrem sa 
ramina 
activate 


cmăNavigare (i) .Enabled = blnStare End If Next i End Sub 
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Private Sub txtCriteriu KeyPress (KeyAscii As Integer) 


Static strCrit As String, 


Gasitl As Boolean Wi 


= 13 Then Height = intlnitH 


compune criteriul de cautar 


' in structura CASE armatoare se 


' care depinde de tipul de data din 


cimpul supus căutării Select Case 


„Fields (IstCimpuri.Listlndex).Type ! s xclud citeva tipuri de 
câmpuri ' in care nu se pot face căutări Case dbLongBinary, 
abBinary, 

dbCurrency, APGUID, dbMemo, dbTimeStamp, dbVarBinary ! nimic 
strCrit = mn 

Case dbText 

SEFCELE. = "UCase (T e. 

Trim(IstCimpuri.List (IstCimpuri.Listlndex)) &") " & 
cboOperator.Text & " & 

UCase (Trim(txtCriteriu.Text) ) & 


Case dbDate 'data calendaristica 


If cbhoOperator.Text o" 


TK] 


pu 


Then strCrit = 


Trim(IstCimpuri.List (IstCimpuri.ListIndex)) & 
wm" & cboOperator.Text &_ = 
" #" & Format (Trim(txtCriteriu.Text), "m-d-yy") & "#" 


Else 
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th RecSet If KeyAscii 


290 


m 
E 


Case 


strCrit 


Else 
If choOperator.Text O "LIKE" 
Trim(IstCimpuri.List(IstCimpuri.Listlndex) ) 
& cboOperator.Text & Val (Trim(txtCriteriu.Text) ) 
Else 


End If 


End 


Select 


' cautarea 


este o cau 


o cautare la care s-a găsit ceva 


pr 
tar 


sgBox "Nu 


strCrit = 
Exit Sub 
"tipurile 


" 


sgBox "Nu 


strCrit = 
Exit Sub 


opriu-zisa 
e noua .Fin 


Visual Basic 


puteti folosi operatorul LIKE 
"pentru date calendaristice" 
mr 


End If 


numerice 


Then 


puteti folosi operatorul LIKE 


"pentru date de tip numeric" 
woe 


„MoveFirst Select Case Gasitl 
dFirst strCrit Case True ' 


.FindNext strCrit 


& 


" 


Case False 


inainte a fost 
End Select If 


.NoMatch Then 
MsgBox "Nu găsesc nimic dupa criteriul " & strCrit 
Gasitl = False 
Else 
Gasitl = True End If End If End With End Sub 
' proprietăţi generate de wizard: 
'WARNING! DO NOT REMOVE OR MODIFY THE FOLLOWING COMMENTED LINES! 
'MemberInfo=9,0,0,0 
Public Property Get RecSet() As Object Set RecSet = m_RecSet End 
Property 
Public Property Set RecSet (ByVal New RecSet As Object) 


Set m_ 
End Prope 


Load pro 


UserContrpl ReadProper 


rty 


per 


ty values f 
GL 


rom storage Private Sub 


PropBag.ReadProperty ("Recs 


PropBag.ReadProperty ("En 


'Write property values to s 
Private Sub UserControl Wri 
Call PropBag.WriteProper 
Call PropBag.WriteProper 


End Sub 


Să nc întoarcem acum la form-ul din figura A. 19. Proprietățile (doar acelea ale căror valori au 


es (PropBag As PropertyBag) Set m Recset 
t", Nothing) UserControl.Enabled 
abled", True) End Sub 


torage 


ty ("RecSet", m RecSet, Not 
ty ("Enabled", UserControl.! 


fost schimbate) controalelor sunt precizate în tabelul următor. 


RecSet = New RecSet PropertyChanged "RecSet" 


teProperties (PropBag As PropertyBag) 


hing) 


" 


Enabled, True) 
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Tabelul A. 2. Controale de pe form-ul f rmStudenti 


1 emdAddPicture CommandButton 
Enabled O'False 
Style i 'Graphical 
Tablndex 7 
ToolTipText Adauga o fotografie scanata 

2 oleFoto OLE 
DataField Foto 
DataSource datStudenti 
Enabled OFalse 
SizeMode 3 "Zoom 
Tablndex 8 

3 IbiEmpty Labe! 
Alignment 2 'Center 
Appearance O Fiat 
AutoSize -1 'True 
BackStyle 0 'Transparent 
Caption <fotografie indisponibila> 
Enabled OFalse 

4 IbIMatricol Labe! 
Alignment 1 'Right Justify 
AutoSize -1 'True 

5 TbINume Labe! 
Alignment 1 'Right Justify 
AutoSize -1 True 
Caption Nume student 

6 IblDataN Labei 
Alignment 1 'Right Justify 
AutoSize -1 'True 
Caption Data nasterii 

i txtMatricol TextBox 
DataField Matricol 
DataSource datStudenti 
Enabled O'False 
Tablndex 0 

8 txtNumePren TextBox 
DataField Numepren 
DataSource datStudenti 
Tablndex T~ 
Top 870 

9 txtDataNast TextBox 
DataField Datanast 
DataSource datStudenti 
Enabled O'False 
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Tablndex 2 

10 Linei Line 

11 ctINavBtnl ctINavBtn 
Tablndex 3 

12 datStudenti Data 
Align 2 Align Bottom 
Caption Tabela STUDENTI 
Connect Access 
DatabaseName* .. \GEStud.mdb 
Exclusive O'False 
ReadOnly O'False 
RecordsetType 1 'Dynaset 
RecordSource Studenti 
Visible 0 'False 


* în loc de puncte-puncte se trece calea de rigoare. 


Listing-ul A.7 redă codul-sursă al form-ului. 


Listing A. 7. 


Codul-sursă a! 


Private Sub cmdAddPicture Click () 


On Error GoTo terminat 


form-ului frmStudenti 


1 cdgFoto este un control de tip CommonDialog ' care se 
afla pe form-ul frmCadru Wi th frmCadru.cdgFoto 


„DialogTitle = "Deschide" 


„InitDir = App.Path £ "\graphics\fotostud" 


. ShowOpen 


oleFoto. CreateLink ( . FileNaine) 


End With 

Exit Sub terminat: 

' TratErori Err.Number, 
Sub 


Index 


Case 5, 6 ' butoanele pentru Add sau 
tratament diferentiat al evenimentului dupa cum suntem in starea 
AdaugareAModificare ir.registrare 


dbEditNone Then ActivareControale 


txtMatricol.SetFocus 


Else 


ActivareControale (False) 


End If 


Case Else 'celelalte butoane 


End Select End Sub 


ActivareControale (False) 


Private Sub datStuder.ti Reposition () 


Err.Description, Err.Source E 


Private Sub ctlNavBtnl BtnClick (Index As Integer) 
Cod specific navigarii in acest formular Select Case 


Edit 


(vezi EditMode) 
sau dimpotrivă suntem in starea Comitere 
ir.registrare If ctlNav3t.nl. 


RecSet. EditMode <> 


(True) 


nd 


Anexă 293 


If IsNull (datStudenti.Recordset! foto) Then 
lblEmpty.Visible = True 

Else 

lblEmpty.Visible = False 

End If End Sub 


Private Sub Form Initialize() 
' atribuim butoanelor de navigare recordset-ul cuvenit 
Set ctlNavBtnl.RecSet = datStudenti.Recordset End Sub 


Private Sub Form Terminate () 
1 se şterge referinţa la obiectul Recordset 
Set ctlNavBtnl.RecSet = Nothing End Sub 


Private Sub ActivareControale(blnStare As Boolean) 
cmdAddPicture.Enabled = blnstare 
txtMatricol.Enabled = blnStare 
txtNumePren.Enabled = blinStare 
txtDataNast.Enabled = blnStare End Sub 


în listing-ul de mai sus reţine atenţia secvenţa marcată cu caractere bold. Ea ne arată cum se poate 


= 


introduce o imagine într-un câmp de tip OLE Picture, graţie metodei CreateLink a obiectelor 
de tip OLE. Argumentul acestei metode este un nume de fişier (în cazul nostru e vorba de fişiere . jpg 
ce conţin fotografiile scanate ale studenţilor, fişiere ce sunt stocate în subdirectorul fotostud) . 
Numele de fişier este obţinut afişând un dialog de tip FileOpen. 

Form-ul frmDiscipline are aspectul prezentat în figura A.21, iar controalele şi proprietățile 


(acelea ale căror valori au fost schimbate) sunt precizate în tabelul imediat următor. Codul-sursă se 


găseşte în listing-ul A.8. 
ICI ELF E 
Hi] + Anul univerhir * —i ! (inceput) 
12) mal 


disciplinefj] 
Denumire; 


disciplinei 


Coeficient Coeficp'tt activitate lucrq 81 
+ pe parcurs scrisa 
s7tjjtD-S 
I< <s Cauta.. > >| 7 q d Z X oJ 
H| < | Tabela DISCIPLINE 
THT InJ -M 


Figura A. 21. Form-ul f rmDiscipline în etapa de 
proiectare 


294 Visual Basic 


Anexă 


l abelul A. 3. Controale de pe form-ul frmDiscipline 


! 1 IblCoddise Labei 
Caption Codul disciplinei 
Da txtCoddisc TextBox 
DataField Coddisc 
DataSource datDiscipline 
3 IblAnuniv Labei 
Caption Anul universitar (inceput) 
4 txtAnuniv TextBox 
DataField Anuniv 
DataSource datDiscipline 
5 IbIDendisc Labei 
Caption Denumirea disciplinei 
6 txtDenDisc TextBox 
DataField Dendisc 
DataSource datDiscipline 
7 IbICoefSem Labei 
Alignment 2 'Center 
Caption Coeficient activitate pe parcurs 
8 IblCoefTeza Labei 
Alignment 2 'Center 
Caption Coeficient lucrare scrisa 
9 txtCoefSem TextBox 
DataField Coefsem 
DataSource datDiscipline 
10 UpDownl UpDown* 
Increment 10 
Max 100 
11 txtCoefTeza TextBox 
DataField Coefteza 
DataSource datDiscipline 
12 UpDown2 UpDown 
Increment 10 
Max 100 
13 ctlNavBtn 1 ctlNavBtn 
14 datDiscipline Data 
Align 2 'Align Bottom 
Caption Tabela DISCIPLINE 
Connect Access 
DatabaseName** .. \GEStud.mdb 
Exclusive O'False 
ReadOnly O'False 
RecordsetTvpe ! 'Dynaset 
RecordSource Discipline 
| Visible O'False 


control din biblioteca Microsoft Common Controls 2. în loc de puncte-puncte se trece 


calea de rigoare. 
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Listing A. 8. Codul-sursă al form-ului frmDiscipline 


Option Explicit 

Private Sub Form Initializeţ) 

1 legarea celor 9 butoane la recordset- 

ul ' controlului datDiscipline 

Set ctlNavBtnl.RecSet = datDiscipline.Recordset 


End Sub 


ctlNavBtnl. 


txtCoefSem. 


Private Sub Form Terminate () 
' se şterge referinţa la obiectul Recordset Set 


RecSet = Nothir.g End Sub 


Private Sub txtCoefSem LostFocus () 
txtCoefTeza.Text = 1 - txtCoefSem.Text End Sub 
Private Sub txtCoefTeza LostFocus () 


Text = 1 - txtCoefTeza.Text End Sub 


Private Sub UpDownl_Change() 
acest control permite modificarea 


coeficientului ' din sutime in sutime de punct 


txtCoefSem. 


End Sub 


Text = UpDownl.Value / 100 End Sub 


Private Sub UpQownl_LostFocus () 
txtCoefSem LostFocus End Sub 


Private Sub UpDown2 Change, () txtCoefTeza.Text = 
UpDown2.Value / 100 End Sub 


Private Sub 'JpDown2 LostFocus () 
txtCoefTeza LostFocus 


Form-ul frmSpec arc aspectul prezentat in figura A.22, iar controalele şi proprietăţile 


(acelea ale căror valori au fost schimbate) sunt precizate în tabelul imediat următor. Codul- sursă se 


găseşte în listing-ul A.9. 


Specializati 


Codul specializa™ [7] [TJ 


Denumirea specialisanj*jf* 


I< < CaUa... > >| 


Fi Dzx.. 


Z| 


Tabela SPEC [J> "j 


Figura A. 22. Aspectul form-ului frmSpec în etapa de proiectare 
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Tabelul A. 4. Controale de pe form-ul frmSpec 


1 IblCodSpec Labei 
AutoSize -1 True 
Caption Codul specializării 

2 txtCodSpec TextBox 
DataField codspec 
DataSource datSpec 
Enabled O'False 

3 IbIDenSpec Labei 
AutoSize -1 "True 
Caption Denumirea specializării 

4 txtDenSpec TextBox 
DataField denspec 
DataSource datSpec 
Enabled O'False 

5 Linei Line 

6 ctlNavBtn 1 NavBtn 

7 datSpec Data 
Align 2 'Align Bottom 
Caption Tabela SPEC 
Connect Access 
DatabaseName* „.XGEStud.mdb 
Exclusive O'False 
RecordsetType 1 'Dynaset 
RecordSource Specializări 
Visible O'False 

* în loc de puncte-puncte se trece calea de rigoare. 
Listing A. 9. Codul-sursă al form-ului frmSpec 
Option Explicit 


Private Sub ctlNavBtnl BtnClick(Index As Integer) 


"Cod specific navigarii 
Index 


in acest formular Select Case 


Case 5, 6 ' butoanele pentru Add sau Edit 


' tratament diferentiat 


al evenimentului dupa cum suntem in starea 


Adaugare/Modificare inregistrare (vezi EditMode) 


! sau dimpotrivă suntem 


in starea Comitere inregistrare 


If ctlNavBtnl.RecSet.EditMode o dbEditNone Then 


ActivareControale (True) 


ActivareControale 
End If 
Case Else 'celelalte butoane 
ActivareControale 
End Select End Sub 


Private Sub Form Initializ'e 


txtCodSpec.SetFocus Else 
(False) 


(False) 


(=) 


' atribuim butoanelor de navigare recordset-ul controlului datSpec Set 
ctlNavBtnl.RecSet = datSpec.Recordset End Sub 


Private Sub Fom_Terminats> () 


1 se şterge referinţa la obiectul Recordset Set ctlNavBtnl.RecSet = Nothing End 


Sub 
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Private Sub ActivareControale (blnStare As Boolean) txtCodSpec.Enabled = 
blnStare txtDenSpec.Enabled = blnStare End Sub 


Form-ul frm] 


Inscrieri este utilizat pentru consemnarea înscrierii unui student într-un an de 


studiu şi la o specializare. Fiind nevoie de date din mai multe tabele, acest form utilizează trei 


controale Data şi 


are aspectul din figura A.23. 


TjNume student * j^j TAJumar matricol |T| 
5An universitar! JSj j-jB' + + * : TJAn studia ! 


~*~] 101. “tt! 
:Giupa(Tr]::: fTâ] : 


â&'ki UM "531 
835 fotograf i 
i TJisponibila> 


| +] 4 | Tabela ÎNSCRIERI 


+ Specializarej 14 j| |_5_J ~id iv 
I< < Cauta.. > sı [in IXO 
| I<j Tabela SPEC Oll TiyJ 
| If] < [Tabela STUDENTI [20] 
UD Tid 


Figura A. 23. Aspectul form-ului frmlnscrieri in etapa de proiectare Tabelul A. 5. Controale de pe 


form-ul frminscrieri 


1 IblNumepren Labei 
Alignment 1 "Right Justify 
AutoSize -1 'True 


Caption 


Nume student 
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2 dbcNumepren DBCombo 
DataField Matricol 
DataSource datInscrieri 
Style 2 
ListField Numepren 
BoundColumn Matricol 
IblMatrico! Labei 
Alignment 1 ‘Right Justify 
AutoSize -1 "True 
Caption Număr matricol 

4 txtMatricoll TextBox 
DataField Matricol 
DataSource datStudenti 

5 IblAnuniv Labei 
Alignment 1 'Right Justify 
AutoSize -1 "True 
Caption An universitar 

6 txtAnUniv TextBox 
DataField Anuniv 
DataSource datInscrieri 

7 updAnUniv UpDown 
BuddyControl txtAnUniv 
Max 2099 
SyncBuddy -1 "True 
BuddyProperty Text 
Enabled -1 "True 

8 IblAnStud Labei 
Alignment 1 'Right Justify 
AutoSize -1 "True 
Caption An studiu 

9 txtAnStud TextBox 
DataField Anstud 
DataSource datInscrieri 

10 updAnStud UpDown 
Value 1 
BuddyControl txtAnStud 
Max 6 
Min 1 
SyncBuddy -1 "True 
BuddyProperty Text 
Enabled -1 "True 

11 IbIGrupa Labe! 
Alignment 1 ‘Right Justify 
AutoSize -1 "True 
Caption Grupa 

12 txtGrupa TextBox 
DataField Grupa 
DataSource datInscrieri 

13 updGrupa UpDown 


Value 


1 
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BuddyControl txtGrupa 
Max 15 
Min 1 
SyncBuddy -1 'True 
BuddyProperty Text 
Enabled -1 'True 

14 IbISpec Labe! 
Alignment 1 'Right Justify 
AutoSize -1 'True 
Caption Specializare 

15 dbeSpec DBCombo 
DataField Spec 
DataSource datInscrieri 
Style 2 
ListField denspec 
BoundColumn codspec 

18 ctINavBtnl ctlINavBtn 

19 datSpec Data 
Align 2 ‘Align Bottom 
Caption Tabela SPEC 
Connect Access 
DatabaseName .. \GEStud.mdb 
DefaultCursorType 0 'DefaultCursor 
DefaultType 2 'UseODBC 
Exclusive O'False 
ReadOnly O'False 
RecordsetType 1 'Dynaset 
RecordSource Specializări 
Visible 0 'False 

20 datStudenti Data 
Align 2 'Align Bottom 
Caption Tabela STUDENT! 
Connect Access 
DatabaseName .. \GEStud.mdb 
DefaultCursorType 0 'DefaultCursor 
DefaultType 2 'UseODBC 
Exclusive 0 'False 
ReadOnly 0 'False 
RecordsetT ype 1 'Dynaset 
RecordSource Studenti 
Visible 0 'False 

21 datinscrieri Data 
Align 2 'Align Bottom 
Caption Tabela INSCRIERI 
Connect Access 
DatabaseName .. \GEStud.mdb 
DefaultCursorType 0 'DefaultCursor 
DefaultType 2 'UseODBC 
Exclusive 0 'False 
ReadOnly 0 'False 
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RecordsetType 1 'Dynaset 
RecordSource înscrieri 
Visible 0 'False 

22 oleFoto OLE 
DataField Foto 
DataSource DatStudenti 
Enabled 0 'False 
SizeMode 3 'Zoom 
Tablndex 15 

23 iblErnpty Labei 
Alignment 2 'Center 
Appearance 0 'Fiat 
AutoSize -1 'True 
BackStyle O "Transparent 
Caption <fotografie indisponibila> 
Enabled O'False 
ForeColor &H80000008& 


x? 
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Notă\ Controalele de tip UpDown nu au funcţionalitate proprie, ele „pilotează” alte controale. 


Proprietatea BuddyControl arată controlul „pilotat”, iar Buddy Property precizează 


acea proprietate a controlului „pilotat” care se modifică la efectuarea de clic-uri pe controlul 


UpDown. 


Listing A. 10. Codul-sursa a! form-ului frmlnscrieri 


Option Explicit 


Private Sub datInscrieri Reposition () 
' se cauta in tabela Studenti studentul 
1 al cărui matricol il găsim in tabela 
înscrieri With datlnscrieri.Recordset 


If Not .EOF () And Not .BOFO Then 
datStudenti.Recordset.FindFirst "matrlcol='" £ imatricol & 
End 
If End 
With 
End Sub 


Private Sub dat3tudenti_Reposition{) 
1 evenimentul Reposition survine lanavigareaintr-un recordset 
' daca studentul nu are fotografie, afisam mesajul"indisponibil" 
If IsNull (datStudenti.Recordset! foto) Then 

IblEmpty.Visible = True 


Else 
IblEmpty.Visible = 
False End If End Sub 


Private Sub dbcNumepren Change () 


If datinscrieri.EditMode <> dbEditNone 
Then ' cautam 
matricolul, dar numai daca 


suntem in modul adaugare sau ditar 
datStudenti.Recordset.FindFirst "matricol=!" 
& dbcNumepren.BoundText & 
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If datlnscrieri .EditMode = dbEditAdd Then 
txtAnU'iiv = Ilf(Month(Date) >= 9 And _ 
Month (Date) <= 12, Year(Date), Year(Date) - 1) 


updAnUniv.Min = txtAnUniv txtAnStud = "1" 
Endl 
End Pf 
End Sub 
Private Sub Form Initialize () 
' atribuim butoanelor de navigare recordset-ul ' controlului 
datIlnscrieri i 


Set ctlNavBtnl.RecSet = datilnscrieri.Recordset End Sub 


Private Sub Form Terminate () 
Set ctlNavBtnl.RecSet = Nothing ' se şterge referința la obiectul 
Recordset 


End Sub 
Ca şi form-ul anterior, f rmExamene este un form destul de complicat. Figura A.24 prezintă 
aspectul său în etapa de proiectare. 


E Rezultate examene 


Denumirea De T > PA 
D Data E m op a stude 1] _ a 


1 | IblDenDisc Labei 


AutoSize -1 'True 

Caption Denumirea disciplinei 
2 dbcDisc DBCombo 

Style 2 

ListField Dendisc 

BoundColumn Coddisc 
3 IbIDataEx Labei 

AutoSize -1 'True 

Caption Data examinarii 
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4 dbcDataex DBCombo 
ListField Dataex 
5 IbINumepren Labei 
AutoSize -1 'True 
Caption Student 
6 dbcStud DBCombo 
Style 2 
ListField Numepren 
BoundColumn Matricol 
7 dbgNote DBGrid 
8 ctlNavBtnl ctINavBtn 
9 datStudenti Data 
Caption Tabela STUDENTI 
Connect Access 
DatabaseName „XGEStud.mdb 
DefaultCursorType 0 'DefaultCursor 
DefaultType 2 'UseODBC 
Exclusive 0 'False 
ReadOnly 0 'False 
RecordsetType 1 "Dynaset 
RecordSource Studenti 
Visible 0 'False 
10 datExamene Data 
Caption Date de examen 
Connect Access 
DatabaseName .. \GEStud.mdb 
DefaultCursorType 0 'DefaultCursor 
DefaultType 2 'UseODBC 
Exclusive 0 'False 
ReadOnly 0 'False 
RecordsetType 1 'Dynaset 
RecordSource 
Visible 0 'False 
11 datDiscipline Data 
Caption Tabela DISCIPLINE 
Connect Access 
DatabaseName .. \GEStud.mdb 
DefaultCursorType 0 'DefaultCursor 
DefaultType 2 UseODBC 
Exclusive 0 'False 
ReadOnly 0 'False 
RecordsetT ype 1 'Dynaset 
RecordSource Discipline 
Visible 0 'False 
12 datNotele Data 
Caption Tabela NOTELE 
Connect Access 
DatabaseName .. \GEStud.mdb 
DefaultCursorType 0 'DefaultCursor 
DefaultType 2 'UseODBC 
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Exclusive 0 'False 
ReadOnly 0 'False 
RecordsetType 1 'Dvnaset 
RecordSource Notele 
Visible 0 'False 


Listing A. 11. Codul-sursa al form-ului f rmExamene 


Option Explicit 


Private Sub ctINavBtnl BtnC.lick (Index As Integer) 
On Error GoTo erori Select Case Index Case 5 ! butonul Add 
1 tratament diferentiat al evenimentului dupa cum suntem ' in 
starea Adaugare/Modificare inregistrare (vezi EditMode) 
' sau dimpotrivă suntem in starea Comitere inregistrare If 
ctlNavBtnl.RecSet.EditMode o dbEditNone Then If dbcDisc.Text 
"" Or dbcStud.Text = "" 


Or dbcDataex.Text = "" Then ' pentru eroarea - 
10000 se va vedea modulul maUtilitare Err.Raise -10000 
Else 
dbgNote.Columns(0) = dbcStud.BoundText 
dbgNote.Columns(1) = dbcDisc.BoundText 
dbgNote.Columns(2) = dbcDataex.BoundText 


dbgNote.Col = 3 

dbgNote.EditActive = True 

End If 

End If 

Case 6 'butonul Edit 
dbgNote.Col = 3 
dbgNote.EditActive = True 

End Select 

erori: 


Exit Sub 


TratErori Err.Number, Err.Description, Err.Source End Sub 


Private Sub dbcDataex LostFocus() 

Dim strDataEx As String With datNotele 

strDataEx = Format (dbcDataex.Text, "mm/dd/yyyy") 

' verificam daca intr-adevar am ales o data calendaristica 
in format valid si nu un sir de caractere oarecare If 


1 


InStr(strDataEx, "/") = 3 And InStr(4, strDataEx, "/") = 6 Then ' se 
filtreaza recordset-ul datNotele: 
„RecordSource = " select * from notele where coddisc='" & 


dbcDisc. BoundText & and dataex=lf" & strDataEx & "#" 


dbgNote.Caption = "Rezultatel xamenului la disciplina " & _ 
dbcDisc.Text Else 'in caz ca s-a introdus un altfel de text 
„RecordSource = " select * fron notele where false " 
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la o asemenea data! " 


dbgNote.Caption = "Nu exista examen 
dbcDataex.Text = "<alegeti data>" 
End If .Refresh 
‘important! - refacem referinţa butoanelor de navigare la! 
recordset, fiindcă acesta se schimba prin SELECT-ul de mai sus 
Set ctlNavBtnl.RecSet datNotele.Recordset End With End Sub 


Private Sub abcDisc LostFocus() 
With datExamene 
.RecordSource 


"select distinct dataex from" & _ 

"notele where coddisc='" & dbcDisc.30undText & _ 
11 order by 1" 

„Refresh End With 

dbcDataex.Text = "<alegeti data>” 

End Sub 


Private Sub Form Initialize {) 


' atribuim butoanelor de navigare recordset-ul ' controlului 
datNotele 
Set ctlNavBtnl.RecSet = datNotele.Recordset End Sub 


Private Sub Form Terminate () 
Set ctlNavBtnl.RecSet Nothing End Sub 


în continuare ne ocupăm de cele două form-uri ce permit transmiterea de parametri pentru 


afişarea rapoartelor. Form-ul frmFiltruStudenti permite selectarea unuia dintre cele patru modele de 
listă a studenţilor şi are aspectul din figura A.25. 


? 
; Anul de sludiu [| IS a ae 27 
: QG, upa 
şfienurrarea special |zări| . 
j peciar |z| 1 HT l 


£fisaie [7] ! 
Anii d [gjtudiu >[>lij H] 4 jG'i) 101 
! 
i 
Figura A. 25. Form-ul frmFiltruStudenti Controalele acestui form si,proprietatile lor 


mai importante sunt redate în tabelul A.7. Tabelul A. 7. Controalele foym-ului 


frmFiltruStudenti 
1 IblAnStud Labei Apulaie ji |::::: UL 4 
AutoSize -1 "True |sfTltifeaii' > jTTj 
Caption Anul de studiu 
2 dbcAnStud DBCombo 
Style 2 
BoundColumn anstud 
ListField anstud 
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RowSource datAniStud 

3 IblGrupa Labei 
AutoSize -1 'True 
Caption Grupa 

4 dbcGrupa DBCombo 
Style 2 
ListField grupa 
BoundColumn grupa 
RowSource datGrupe 

5 IbISpecializari Labei 
AutoSize -1 'True 
Caption Denumirea specializarii 

6 dbcSpecializari DBCombo 
Style 2, 
ListField denspec 
BoundColumn codspec 
RowSource datSpecializari 

7 emdAfisare ComrnandButton 
Caption & Afisare 
Default -1 'True 

8 emdAnulare ComrnandButton 
Cancel -1 'True 
Caption A&nulare 

9 datAniStud Data 
Caption Anii de studiu 
Connect Access 
DatabaseName .. \GEStud.mdb 
DefaultCursorT ype 0 'DefaultCursor 
DefaultType 2 'UseODBC 
Exclusive O'False 
ReadOnly O'False 
RecordsetType 1 'Dynaset 
RecordSource select distinct anstud from inscrieri order by 1 
Visible 0 'False 

11 datSpecializari Data 
Caption Specializari 
Connect Access 
DatabaseName .. \GEStud.mdb 
DefaultCursorType 0 'DefaultCursor 
DefaultType 2 'UseODBC 
Exclusive 0 'False 
ReadOnly 0 'False 
RecordsetT ype 1 'Dynaset 
RecordSource select denspec, codspec from specializări order by 1 
Visible O'False 

12 datGrupe Data 
Caption Grupe 
Connect Access 
DatabaseName .. \GEStud.mdb 


DefaultCursorType 


0 'DefaultCursor 


DefaultType 2 'UseODBC 305 
Exclusive 0 'False 

ReadOnly 0 'False 

RecordsetTvpe 1 'Dvnaset 

RecordSource select distinct grupa from inscrieri order by 1 

Visible 0 'False 


La momentul execuţiei, pe acest form va fi vizibil un singur control de tip DBCombo din cele trei. 
Astfel, este posibilă obţinerea listei filtrate pe ani, pe grupe ori pe specializări. 
0 privire asupra codului din listing-ul A. 12 va ajuta la edificare. 


Listing A. 12. Codul-sursă al form-ului frmFiltruStudenti 


Option Explicit 

Private Sub cmdAfisare Click) 

' inchidem un eventual recordset vechi 

ł care ne-ar putea trimite in raport date eronate 

If deGeStud.rsdemStudenti.State <> adStateClosed 

Then deGeStud.rsdcmStudenti.Close End If 

+ aici se cere ordonare dupa numepren 

' si dupa specializare 

Dim strOldCmdText As String 

With deGeStud.Commands ("dcemstudenti") 
1 memoram undeva SELECT-ul original strOldCmdText = 
-CommandText ' se concateneaza criteriul de ordonare 
-CommandText = .CommandText & ” order by numepren, denspec" 

End With 

1 se doreşte filtrarea pe ani 

If dbcAnStud.Visible Then 
With deGeStud.Commands {"dcmstudenti") 


„Parameters (0) .Value = 0 'False 
Parameters (1). Value = dbcAr.Stud. 
BoundText .Parameters(2).Value = 0 
„Parameters (3) .Value = "0" 
End With 
drListaStudentilor.Title = "Lista studentilor din anul & _ 


dbcAnStud.BoundText End If 
' se doreşte filtrarea pe grupe 
If dbcGrupa.Visible Then 
With deGeStud; Commands ("demstudenti"”) 
.Parameters(0).Value = 0 'False 
.Parameters(1).Value = 0 
.Parameters(2).Value = 
dbcGrupa.BoundText .Parameters (3) .Value 
= WO ae 
End With 
drListaStudentilor.Title = "Lista studentilor din grupa " & _ 
dbcGrupa.BoundText End If 
ł se doreşte filtrarea pe specializări 
If dbcSpecializari.Visible Then 
With deGeStud.Commands ("dcemstudenti") 


„Parameters (0) .Value = 0 'False 
„Parameters (1) .Value = 0 
„Parameters (2) .Value = 0 
„Parameters (3) .Value = dbcSpecializari.BoundText 
End With 
drListaStudentilor.Title = "Lista studentilor din grupa " & 


__ dbcGrupa.BoundText End If 
1 se invoca procedura LegareDinamica LegareDinamica 

' se invoca procedura MarginiRaport MarginiRaport 
drListaStudentilor, 0.5, 0, 0, 0 ' se invoca procedura 
AfiseazaListaStudentilor AfiseazaListaStudentilor 

' revenire la CommandText-ul (SELECT-ul) original 
deGeStud.Commands ("demstudenti") .CommandText = strOldCmaText 
' refacerea valorilor iniţiale ale parametrilor With 
deGeStud.Commands{"dcmstudenti") 


„Parameters (0) .Value = 1 ' True 
.Parameters(1).Value = 
0 „Parameters (2) .Value 
= 0 


.Parameters{3).Value = 
won 


With 

Unload 

Me 30&d Visual Basic 
Sub 


Private Sub cmdAnulare Click () 
Unload Me End Sub 

Notă: Liniile marcate cu caractere bold desemnează apeluri de proceduri cu caracter general, 

aflate în modulul mdUtilitare. 

Apelul form-ului, inclusiv ascunderea unor controale, se vor face din meniul aplicaţiei. Pe 
principiul descris aici funcţionează şi form-ul frmFiltruExamene, prezentat în continuare, 
numai că ia execuţie se vor vedea fie cuplul de parametri Denumire disciplină - Data examinării, fie 
doar parametrul Student. 


Denumirea disci i ; “| [2] : 


Data evaninad Be: wea , = at. a 


Afisare [TJ Anulare [i] 


l 4| TabefsjTUD » |^ Dai 10] exa>w k l TUT jiDIS C > 
1 


Figura A. 26. Macheta form-ului FrmPiltrufxamene 


Tabelul A. 8. Controalele form-ului frmFiltruExamene 


1 IbIDenDisc Labei 
AutoSize -1 'True 
Caption Denumirea disciplinei 
2 dbcDisc DBCombo 
RecordSource datDiscipline 
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Style 2 
ListField Dendisc 
BoundColumn Coddisc 

3 IblDataEx Labei 
AutoSize -1 True 
Caption Data examinarii 

4 dbcDataex DBCombo 
ListField Dataex 
RecordSource datExamene 

5 IblNumepren Labei 
AutoSize -1 True 
Caption Student 

6 dbcStud DBCombo 
RowSource datStudenti 
Style 2 
ListField Numepren 
BoundColumn Matricol 

Ti emdAfisare CommandButton 
Caption & Afisare 
Default -1 True 

8 emdAnulare CommandButton 
Cancel -1 True 
Caption A&nulare 

sl datStudenti Data 
Caption Tabela STUDENTI 
Connect Access 
DatabaseMame .. \GEStud.mdb 
DefaultCursorType 0 'DefaultCursor 
DefaultType 2 'UseODBC 
Exclusive 0 'False 
ReadOnly 0 'False 
RecordsetT ype 1 'Dynaset 
RecordSource select * from studenti order by numepren 
Visible 0 'False 
10 datExamene Data 

Caption Date de examen 
Connect Access 
DatabaseName .. \GEStud.mdb 
DefaultCursorType 0 'DefaultCursor 
DefaultType 2 'UseODBC 
Exclusive 0 'False 
ReadOnly 0 'False 
RecordsetType 1 'Dynaset 
RecordSource 
Visible 0 'False 

—|  datDiscipline Data 
Caption Tabela DISCIPLINE 
Connect Access 
DatabaseName . \GEStud.mdb 
DefaultCursorType 0 'DefaultCursor 
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DefaultType 2 'UseODBC 
Exclusive 0 'False 
ReadOnly 0 'False 
RecordsetType 1 'Dynaset 
RecordSource Discipline 
Visible 0 'False 


Codul-sursă prezentat în listing-ul A. 13 cere o doză mai mare de atenţie, întrucât în cele două 
variante de liste are loc ascunderea şi respectiv mutarea unor controale, atât din zona 
PageHeader, câtşidinzona Detail. 


Listing A. 13. Codul-sursă pentru form-ul frmFiltruExamene 


Option Explicit 
Private Sub cmaAfisare Click() 
Dim deplas As Integer, ctl As Object ' inchidem un 
eventual recordset vechi ' care ne-ar putea trimite 
in raport date eronate If 
deGeStud.rsdcmRezExam.State O adStateClosed Then 
deGeStud.rsdcmRezExam.Close End If 
Select Case lblNumepren.Visible Case False ' vorba de un examen 
pentru toti If Left (dbcDataex.BoundText, 1) = "<" Then MsgBox 
"Alegeti data examen!", vbExclamation, "Date incomplete" Exit Sub 
End I f 

1 stabilirea valorilor 

parametrilor With 

deGeStud.Commands ("dcmRezExam") 


„Parameters (0) .Value = 0 'False 
„Parameters (1) .Value = Trim(dbcDisc.BoundText) 
„Parameters (2) .Value = Trim(dbcDataex.BoundText) 
„Parameters (3) .Value = "0" 

End With 


1 se invoca procedura MarginiRaport 


MarginiRaport drRezultateExamene, 0.5, 0, 0, 0 

' in acest caz trebuie ascunse coloanele "dendisc" si "coddisc" 
urneaza ajustarea zonei Detail 

With drRezultateExamene.Sections ("Detail") 

' aflam cu cat vom deplasa celelalte controale spre 


stanga deplas = .Controls("txtnumepren") .Left 

- „Controls ( "txtdendisc") .Left 
-Controls("txtdendisc").Visible = False- 
-Controls("txtdataex") .Visible = False 
-Controls("Linei") .Visible = False 
-Controls("Line2") .Visible = False For Each ctl In 


-Controls 

If ctl.Visible And ctl.Name o "Linell" Then 
ctl.Left = ctl.Left - deplas End If Next ctl 
.Controls ("Linell") .Width = . Controls("Lineil") .Width - 
deplas End With 

' ajustarea zonei PageHeader 

With drRezultateExamene.Sections ("PageHeader") 


-Controls ("lbldendis.c") .Visible = False 
-Controls("lbldataex") .Visible = False 
-Controls("s'napel") .Width = .Controls("shapel") .Width - 


deplas For Each ctl In .Controls 
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If ctl.Visible And ctl.Name <> "Shapel" Then 
ctl.Left = ctl.Left - deplas End If Next ctl End With 


With drRezultateExamen 
„Title = "Rezultatel xamenului la disciplina <<" & 
__dbeDisc.Text & "ə din data de " & dbcDataex.Text 
-Caption = .Title & " - Previzualizare" 


-WindowState = vbMaximized .Show 1 End With 


Case True ' e vorba de datele unui anumit student 
' stabilirea valorilor parametrilor With 
deGeStud. Commands ("dcmRezExam") 

„Parameters (0) .Value = 0 'False . Parameters (1) 

„Value = "ABCDEiFG" 

.Parameters(2).Value = #1/1/1900# 

„Parameters (3) .Value = dbcStud.BoundText End With 
MarginiRaport drRezultateExamene, 0.5, 0, 0, 0 1 in acest caz 
trebuie ascunse ' coloanele "numepren" si "matricol" 

' urmeaza ajustarea zonei Detaii 

With drRezultateExamene.Sections ("Detaii") 

1 aflam cu cat vom deplasa celelalte controale spre stanga 
deplas = .Controls("txtnotas").Left _ 

- .Controls("txtnumepren"). Left 
-Controls("txtnumepren") .Visible = False 
-Controls("txtmatricol").Visible = False 
-Controls("Line3").Visible = False ..Controls ("Line4 ").. 
Visible = False For Each ctl In .Controls 

If ctl.Visible And ctl.Name O "Linell" _ 
And ctl.Name <> "txtDendisc" And 
_ ctl.Name <> "txtDataex" And _ 
ctl.Name O "Linei" And ctl.Name o "Line2" Then 
ctl.Left = ctl.Left - deplas End If Next ctl 
„Controls ("Linell") .Width = .Controls("Lineil") .Width - 
deplas End With 
' ajustarea zonei PageHeader 


With drRezultateExamene.Sections ("PageHeader") 

„Controls ("Iblnumepren") .Visible = False 
-Controls("lblmatricol").Visible = False 

„Controls ("shapel") .Width = .Controls("shapel") .Width - 


deplas For Each ctl In .Controls 
If ctl.Visible And ctl.Name O "lblDenDisc" And _ 
ctl.Name <> "lblDataEx" And ctl.Name o "Shapel" Then 
ctl.Left = ctl.Left - deplas End If Next ctl End With 
With drRezultateExamene 


eTitle = "Situatia scolara a studentului " & dbcStud.Text 
„Caption = .Title & " - Previzualizare" 
MWindowState = vbMaximized 
„Show 1 
End With a 


End Select 
Unload Me 
End Sub 


oe pi . oy . 
Private Sub cmdAnulare Click() 
Unload Me End Sub 
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Private Sub dbcDisc_LostFocus () 
With datExamene 


„RecordSource = "select distinct dataex " & "from notele _ where 
coddisc='" & dbcDisc.BoundText & order by 1" 
.Refresh 
End With 
dbcDataex.Text = "<alegeti data>" 
End Sub 


Nota \ Liniile marcate cu caractere bold desemneaza apeluri de proceduri cu caracter general, 

aflate in modulul mdUtilitare. 

Apelul form-ului, inclusiv ascunderea unor controale, vor avea loc din meniul principal al 
aplicaţiei. De altfel, meniul aplicaţiei serveşte la apelarea comodă a tuturor form-urilor prezentate pana 
acum. Acest meniu a fost creat în cadrul unui form de tip MDI, denumit f rmCadru. Form-ul 
frmCadru va fi declarat Startup Object pentru proiect; proprietatea WindowState va avea 
valoarea 2 - Maximized. De menţionat că pentru absolut toate form-urile prezentate până acum, 
proprietăţii MDIChild i se dă valoarea True. 

înainte de a discuta despre form-ul frmCadru, prezentăm o schiţă a meniului aplicaţiei, 
concretizată în tabelul A.9. 

Tabelul A. 9. Structura meniului aplicaţiei 


Caption (Name) Caption (Name) 
&Fisier mnuFisier Actualizare &studenti mnuFS 
Actualizare &discipiine mnuFD 
Actualizare s&pecializari mnuFP 
-(separator) 
E&xit mnuFX 
&Tranzactii mnuTranzactii T&nscrieri studenti mnuTI 
Culegere rezultate E&xamene mnuTX 
&Liste mnuListe Liste &studenti mnuListe 
&Generala mnuLSG 
din &anul... mnuLSA 
din g&rupa mnuLSR 
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Caption (Name) Caption (Name) 
de la &specializarea... mnuLSS 
Rezultate e&xamene mnuLX 
la &disciplina... mnuLXD 
&Situatia scolara a... mnuLXS 
&Optiuni mnuOptiuni &Bara de instrumente mnuOB 
&Instrumente mnulnstrumente &Compactare baza de date mnulC 
Se ştie că pe un form MDI se pot plasa numai anumite tipuri de controale. în afara meniului, 
form-ul frmCadru mai conţine un control Toolbar şi un control StatusBar,' ambele 


adăugate la proiect din biblioteca Microsoft Windows Common Controls, un control ImageList 


(din aceeaşi bibliotecă) pentru păstrarea imaginilor de pe butoanele controlului Toolbar. 


Sunt 


cinci astfel de imagini, fiecare având 24*22 pixeli, desenate cu programul Paint şi memorate ca 


fişiere .bmp. 


prezentarea liniilor de instrumente în Capitolul 15). 


Fişier Tranzacţii Liste Opţiuni Instrumente 


Usd e > 
PT* 

t LII m 
^H- v 
& Vv 
E 


Gata 


cm 


Figura A. 27. Form-ul frmCadru 


Toolbar-ul are totuşi şase butoane, al patrulea fiind declarat separator (vezi 


—J.Cj.xj 


1:30 


Controlul de tip StatusBar din partea inferioară a form-ului a fost dotat cu un număr de 6 


secțiuni (panels). Acest control este destul de asemănător cu Toolbar, numai că serveşte la afişare, 


şi nu la declanşarea unor acţiuni. Se pot crea paneluri speciale, prin modificarea valorii proprietăţii 


Style; de exemplu, cel cu ora curentă are stilul sbrTime, cel care arată poziţia tastei Caps Lock 


are stilul sorCaps etc. Se poate afişa dinamic un text pe unul dintre paneluri printr-o instrucţiune 


de forma: 


numeStatusBar.Panels (index) .Text="Un text oarecare" 
Atenţie: pentru butoanele controlului Toolbar, imaginile controlului ImageList şi panel- 


urile controlului StatusBar numerotarea începe de la 1, nu de la 0! 


Controlul de tip CommonDiaiog foloseşte la deschiderea unui dialog de căutare pe disc a unor 


fişiere grafice care contin fotografiile studenţilor şi este apelat în form-ul f rmStudenti (vezi 
Listing A.7). Proprietăţile definite pentru acesta sunt 


CancelError -î "True 
DefaultExt „bmp 
Filter Fişiere grafice (*.BMP;”".JPG;*.GIF)|*.bmp;*,jpg;*.gif 
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Option 
Private Sub M 


Anexă 


Listing A. 14. Codul-sursă al form-ului £rmCadru 


Explicit 


' afişare ecran introductiv 


With frmSplas 
' centrare pe 
(Screen.Wid 


Private Sub M 


DIForm Resize () 


DIForm Initialize () 


(frmSplash) 


1 rediraensionarea corespunzătoare a 
urilor din controlul Status 3ar Dim i As Long 

' primul panel este jumatate din latimea form-ului 
sbrGestud.Panels (1) .Width = 


Next i 


Private 


' Actualizare 


' Terminare 
If vbYes = 


"Terminare lucru") 


Sub mnufd_Click() 
' Actualizare discipline frmDiscipline. Show 


Private Sub mnufp Click) 
1 Actualizare specializări frmSpec.Show 


Private Sub mnufS_ Click) 
frmStudenti.Show 


studenti 


Private Sub mnuFX Click() 


MsgBox("Sunteti sigur(a)?", 


Pi 


Then End 


End If 


Private Sub mnuIC_Click() 


' Instrumente 


bazei de dat 


' compactarea 


' (in scopuri administrative) 
start As Date, 


Dim i As Long, 


j As Long, 


If Forms.Count > 1 Then 


MsgBox "inchideti 


cranele d 


culeger 


End 


End 


End With 


h 
ecran a form-ului frmSplash .Left 
th - .Width) \ 2 .Top .= 

t - .Height) \ 2 Show 


panel- 


frmCadru.Width / 2 ' 

celelalte impart in mod egal jumatatea ranasa For i 
To sbrGestud.Panels.Count sbrGestud.Panels(i).Width = 
(frmCadru.Width / 2) / (sbrGestud.Panels.Count - 1) 
End Sub 


End Sub 


Sub 


Sub 


a datelor, 


& 


vbYesNo + vbQuestion, 
End Sub 


interval As Single 
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"apoi incercati din nou", vbExclamation, "Compactare esuata" 


Else 


1 se memoreaza timpul inceperii operaţiei 


! folosind fun 
nopţii) start 


' indicam utilizatorului sa aştepte sbrGestud, panels (1) 


ctia Timer 


(secund 


scurse d 


la miezul 


= Timer 


"Va rog asteptati..." 


Screen.Mous 
"imprumutam" 


numel 
pe un form strNumeBD = 
' descarcarea din memorie a form-ului care 


bazei d 


date ' 


d 


controlul Data mentionat Unload frmStudenti 


conținea 


Pointer = vbHcurglass Dim strNumeBD As String 
la un control Data de 
frmStudenti.datStudenti.DatabaseName 
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' daca baza de date e deschisa prin conexiuni ADO ' le 
inchidem, altfel compactarea e imposibila For i - 1 To 
deGeStud.Connections.Count If deGeStud.Connections (i) .State 
o adStateClosed Then deGeStud.Connections (i) .Close End If 
Next i 

' daca mai e deschisa vreo baza de date, 

1 o inchidem 

j = DBEngine.Workspaces (0) .Databases.Count - 1 For i = 0 
To j 


DBEngine.Workspaces(0).Databases (1) .Close Next i 
' apelarea procedurii de compactare ' din -modulul 
mdUtilitare CompactJetDatabase StrNumeBD ' gata asteptarea 


Screen . MousePointer vbDefault interval = Timer - start 
sgBox "Gata", vblnformation, "Compactare efectuata in" & _ 
interval & " secunde" sbrGestud.Panels(1) = "Gata..." 


End If End Sub 


Private Sub mnuLSA_ Click () 

1! Lista studentilor din anul... 

With frmFiltruStudenti 
„Caption = "Alegeţi anul de studiu" 
„lblGrupa.Visible ^ False .dbcGrupa.Visible = False 
-IbISpecializari.Visible = False 
-dbcSpecializari.Visible = False . Show End With 

End Sub 


Private Sub mnuLSG Click() 
' Lista generala a studentilor... 


trimite in raport dat ronate If deGeStud. rsdcir.Student i 


State O adStateClosed Then deGeStud.rsdcemStudenti.Close End If 


1 aici se cere ordonare dupa numepren 

1 si dupa specializare 

Dim strOldCmdText As String 

With deGeStud.Commands <"dcmstudenti") 
' memoram undeva SELSCT-ul original 
strOldCmdText = .CommandText ' se 
concateneaza criteriul de ordonare 


-ComnjandText = .CommandText & " order by numepren, denspec" 
End With 
drListaStudentilor.Title = "Lista generala a studentilor" 


' se invoca procedura LegareDinamica LegareDir.amica 

' se invoca procedura AfiseazaListaStuaentilor 
AfiseazaListaStudentilor 

1 revenire la CommandText-ul (SELECT-ul) original 

deGeStud. Commands ("demstudenti") .CommandText = StrOldCmdText 
End Sub 


Private Sub mnuLSR_Click() 
1 Lista studentilor din grupa... 
With frmFiltruStudenti 
„Caption = "Alegeţi grupa" 
lblGrupa . Left = . lblAn'Stud. Left .dbcGrupa.Left = 


-dbcAnStud.Left .lblAnStud.Visible = False .dbcAnStud.Visible 


1 inchidem. eventualele recordset-uri vechi ! care ne-ar putea 


False .IbISpecializari.Visible 


= False . Show End With 


Private Sub mnuLSS_ Click() 
1 Lista studentilor de la specializarea... 
With frmFiltruStudenti 
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End Sub 


= False 


-Caption = "Alegeti specializarea" 
.lblGrupa.Visible 
-dbcGrupa.Visible = 


-lblAnStud.Visible = 


False 
False 


False 


.dbcAnStud.Visible = False 


„IbISpecializari.Top = .lblAnStud.Top .dbcSpecializari.Top 
-dbcAnStud.Top . Show 


Private 
' Rezul 


End With 


Sub mnuLXD_Click( 


tatel xemenului ia... 


With frmFiltruExamene 
-IbINumepren.Visible 
-dbcStud.Visible = Fa 


-Caption = "Alegeti disciplina si data" 


Show 
End 
With 
End Sub 


End Sub 


) 


= False 
lse 


Private Sub mnuLXS_ Click() 
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-dbocSpecializari.Visible 


din data de... 


' Situaţia scolara a studentului... 


With frmFiltrul 


Examene 


.lblDenDisc.Visible = 
.dbcDisc.Visible - Fa 


.IblData 


Ex.Visible = 


.dbcDataex.Visible = 


.IbINum 
.IbINumepren.1 


pren.Left = 


False 
lse 
False 
False 


.dbcStud.Left 


.dbcStud.Top = 


"Al 


geți nume] 


i 


-lblDenDisc.Left 


op = .lb1DenDisc.Top 
= .dbcDisc.Left 
.dbcDisc.Top .Caption = 


stud 


Show 
End 
With 
End Sub 


Then 


tbrGeStud.Visible = False mnuOB.Checked 


= False 


Else 


= True 


Private Sub mnuOB Click() 
' Cptiuni/Bara de instrumente If mnuOB.Checked 


Private Sub mnuTN_ Click 


ntului" 


0 


1 Tranzactii/inscriere studenti 


frminsc 


rieri.Show 


End Sub 


tbrGeStud.Visible = True mnuOB.Checked 
End If End Sub 
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Private Sub mnuTX Click() 
' Tranzactii/Rezultat xamene frmExamene. Show 
End Sub 


Private Sub tbrGeStud_ButtonClick (ByVal Button 
As MSComct1Lib.Button) 
1 click pe toolbar Select Case Button. Index 
Case 1 
mnufS Click 
Case 2 
mnufd Click Case 3 
mnufp Click 1 butonul 4 este separator Case 5 
mnuTN Click Case 6 
mnuTX Click End Select End Sub 
in fine. proiectul GeStud mai contine modulul standard rndUtilitare, care cuprinde 
câteva proceduri de utilitate generală. Procedurile au fost apelate de mai multe dintre form-urile 
prezentate până acum şi este lesne de înţeles că acele form-uri n-ar funcționa fără modulul de fata. 
Unele, ca de pildă Compact JetDatabase, se apelează direct din meniu. Le redăm în listing-ul 
A. 15, însoţite de comentarii care au rolul de a lămuri mai bine misiunea fiecărei proceduri. 


Listing A. 15. Codul modulului rndutilitare 


Option Explicit 


Public Sub CompactyJetDatabase (Location As String, 
Optional BackupOriginal As Boolean = True) 


l aceasta procedura realizeaza compactarea unei BD Access ' 
care la operaţii repetate de actualizare devine fragmentata 
1 si creeaza pe disc un fişier foarte mare ' adaptata dupa 

Karl Moore, http://www.vb-world.net/ 


1 folosire: 
' Compact JetDatabase nume-cornp3.et-BD, doresc-copie-de-rezerva 


On Error GoTo CoirpactErr Dim strBackupFile As String Dim 
strTempFile As String 


' verifica daca exista BD al cărei nume s-a transmis ' ca 
parametru 
' funcţia Dir returneaza un sir de lungime O daca ' nu 
exista fişierul cautat If Len(Dir(Location))>0 Then 
' daca s-a cerut si copie de salvare ' s fectueaza 
una, tot in directorul aplicaţiei If BackupOriginal 
= True Then 


strBackupFile = App.Path & "\" & "backup.mdb" 

' daca fişierul exista ceia, se şterge (cu Kill) 

If Len(Dir(strBackupFile))>0 Then Kill StrBackupFile 
FileCopy Location, strBackupFile End If 
1 creeaza un fişier temporar de manevra strTempFile 
= App.Path & "\" & "temp.mtib" 
' daca fişierul exista deja, se şterge (cu Kill) 
If Len(Dir(strTempFfile))>0 Then Kill strTempFile ' 
executa compactarea folosind metoda CorrpactDatabase ! 
a obiectului DBEngine 
DBEngine . Compact.Database Location, strTempFile t 
şterge fişierul original Kill Location 
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1 copie fiserul temporar inapoi in directorul original 
FileCopy strTempFile, Location ! şterge fişierul 
temporar Kill strTempFile 
Else End If Exit Sub CompactErr: 
Select Case Err.Number 
Case 70 ' eroarea "permission denied" 
MsgBox "Baza de date e deschisa de altcineva!", 
vbinformation, "Compactare esuata" 
Case Else 
TratErori Err.Number, Err.Description, Err.Source End 
Select End Sub 


Sub TratErori(sngNrEroare As Single, strTxtEroare As String, 
Optional strSrsEroare) 


1 aceasta procedura exemplifica | tratarea catorva erori 


Select Case sngNrEroare 
Case 3200 ’incalcarea restrictiei referentiale (RESTRICT DELETE) 
MsgBox "Nu puteti sterge!", vbExclamation, "Eroare" 
Case -10000 'eroare definita de utilizator 
MsgBox "Completat! toate datele!", vbExclamation, "Eroare" 
Case Else 
MsgBox "Eroare numărul " & sngNrEroare & & 
strTxtEroare & vbExclamation, "Eroare" 


End Select End Sub 


Public Sub CopieNumaraRecordset (rsOriginal As ADODB.Recordset, 
rsCopie As ADODB.Recordset) it#esterteserteseeeenseeeseneewersenenees 
1 aici se scrie codul din listing-ul A3 ! 


ORR da IE 


End Sub 


Public Sub LegareDinamica () 

Dim rsListaStudentilor As New ADODB.Recordset !'indicam 
utilizatorului sa aştepte Screen.MousePointer m vbHcurglass t 
rsăcmStudenti este recordset-ul pe care-l 1 creeaza obiectul 
demstudenti 

CopieNumaraRecordset deGeStud.rsdcmStudenti, rsListaStudentilor 
' atribuirea dinamica a sursei de date a raportului pe care ! am 
avut grija sa-l facem "unbound" dupa proiectarea sa Set 
drListaStudentilor.DataSource = rsListaStudentilor ! stabilirea 
unor opţiuni pentru raport ! vezi procedura MarginiRaport ! in 
modulul general rndUtilitare 

MarginiRaport drListaStudentilor, 1, 0.5, 0.5, 0.5 1 legarea 
câmpurilor raportului la sursa de date, 

' toate fiind initial in starea "unbound" 

With drListaStudentilor.Sections ("Detail") 


-Controls("txtnrert").DataField = _ 
rsListaStudentilor.Fields("nrcrt") .Name 
-Controls("txtnumepren") .DataField = _ 
rsListaStudentilor.Fields("numepren") .Name 
-Controls!"txtmatricol") .DataField = _ 
rsListaStudentilor.Fields("matricol") .Name 
-Controls{"txtdatanast") .DataField = _ 
rsListaStudentilor.Fields("datanast") .Name 
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-Controls("txtdenspec").DataField = _ 
rsListaStudentilor.Fields ("denspec") .Name 

-Controls("txtanstud") .DataField = _ 
rsListaStudentilor.Fields("anstud") .Name 

-Controls("txtgrupa").DataField = _ 
rslistaStudentilor.Fields ("grupa") .Name 


End With 
' gata aşteptarea 
Screen.MousePointer = vbDefault 
End Sub 
Public Sub AfiseazaListaStudentilor () 
With drListaStudentilor 
-WindowState = vbMaximized 
-Caption = .Title & " - previzualizare" 
' fereastra de previzualizare modala .Show 1 End 
With End Sub 
Public Sub MarginiRaport (Raport As DataReport, ByVal sngStanga As 
Single,ByVal sngDreapta As Single, ByVal sngSus As Single, 
ByVal sngJos As Single, Optional ByVal blnLandscape As 
Boolean = False) 
With Raport 
' vezi funcția definita de utilizator CentimetersToTwips 
„LeftMargin = CentimetersToTwips (sngStanga) 
„RightMargin = CentimetersToTwips (sngDreapta) 
-TopMargin = CentimetersToTwips (sngSus) 
-BottomMargin = CentimetersToTwips (sngJos) 
If blnLandscape Then .Orientation = rptOrientLandscape End 
With End Sub 


Public Function CentimetersToTwips(sngCentimeters As Single) 
1 1 twip=1/1440 inch, iar 1 inch = 2.54 cm CentimetersToTwips = 
sngCentimeters / 2.54 * 1440 End Function 


Alte elemente ale aplicatiei sunt reprezentate de fisierele care folosesc drept imagini pentru 
butoane. Pe acestea programatorul le poate realiza in regim propriu sau le poate copia din diferite 
biblioteci grafice. Pachetul Visual Studio vine cu o colecţie vastă de imagini .bmp şi .ico, printre 
care şi majoritatea simbolurilor utilizate de aplicaţiile Windows. Găsiţi astfel de imagini în calea: 

\Program Files\Microsoft Visual Studio\Common\Graphics 


Testarea si depanarea aplicatiei 


O astfel de operaţie, deloc neglijabilă, implică utilizarea unui set de date de test, care rămâne la 
latitudinea celui ce realizează aplicaţia. Cu acest set se va popula baza de date, ocazie cu care se pot 


depista anomalii în funcţionarea form-urilor, meniului ori rapoartelor. 
Figura 1.7. Varianta Web a documentaţiei MSDN 


întrebări şi exerciţii 

2. Cum au evoluat instrumentele de programare? Care sunt cerinţele momentului? 

3. Pe care limbaj de programare se bazează Visual Basic? 

4. Care sunt cele 3 ediţii Visual Basic şi prin ce se deosebesc acestea? 

Ce diferenţă există între fereastra Form şi fereastra Form Layout? 

Cum se pot determina dimensiunile form-ului? 
Adevărat sau fals? Toate instrumentele care apar în Toolbox la pornirea Visual Basic sunt 
controale intrinsece. 
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1. Ar fi o credinţă greşită aceea că proiectul e un fişier ce conţine „în el” alte fişiere; de fapt, conţine 
nişte referinţe ce permit regăsirea acestor fişiere din diferitele locuri în care au fost memorate. 


1. Indexul reprezintă o modalitate de regăsire eficientă a liniilor unei tabele pe baza valorilor unui atribut. 
| Piojecil - Forml (Code) 


IcmdCalcul 


| Private Sub cmdCalcul_Click() i 
Diro sngAroortAn As Single, sngVall As Single, sngValR 
A ; Dim intDurata As Integer Dini dteDatinF As Date 


preluare dace sngVall = 
txtVail sngValR = 
txtValP. intDurata * 
txtDurata dteDatinF « 
CDate(txtDataF) 


'caicul amortizare de 
snrjAmortJup = (sngVall — sngValR intDurata 


'determinare an calcul 
lunacalcul = DateDiff ("rn", dteDatinF, 


Figura 20.5. Exemplu de punct de oprire (breakpoint) 


Când aplicaţia este lansată in execuţie, totul decurge normal până la punctul de oprire, moment în 


care execuţia se întrerupe şi se afişează fereastra Code, linia la care s-a ajuns 
fiind evidenţiată cu galben (vezi figurile 20.6 şi 20.7). 7 


în acest moment valorile variabilelor pot fi examinate rapid prin menţinerea cursorului mouse-ului 


deasupra lor, pe linia evidenţiată cu galben în fereastra Code (vezi figura 20.6). 
1. Literalul predefmit vbObjectError are valoarea -2147221504. 
Figura 20.12. Cod de tratare a erorilor în procedura Load a unui modul de tip form 


Modificarea este arătată în codul următor: 
Private Sub Form Load) 
Dini strLinie As String, strNumeFisier As String 
On Error GoTo Erori strNumeFisier = 
"c:\faranume.txt" 
"de aici se va relua deschiderea fişierului 'daca se va 


furniza un nune adecvat Deschidere: 
Open strNumeFisier For Input As #1 
'se afiseaza continutul fişierului in fereastra Immediate 
While Not EOF (1) 

Line Ir.put #1, strLinie Debug.Print strlinie 
Wend 
Close 
Exit Sub 
‘aici incepe secvenţa de tratare a erorilor Erori: 
Select Case Err.Number Case 53 'file not found 

If vbYes = MsgBox("Nu exista fişierul 


& strNumeFisier & 
", Mai incercati?", vbYesNo + vbQuestion, _ "Fişier 
inexistent") Then strNumeFisier = InputBox ("Mai introduceti 
odata & "numele si calea fisierului.", _ "Deschidere fişier" 
' utilizatorul nu doreşte continuarea If strNumeFisier =" 
Then End 


Else 


1 


utilizatorul a specificat alt fisier 

1. insistăm asupra faptului că nu se va confunda clasa cu obiectul. 
Astfel, variabila ContBancarleste o referinţă (adresă din memorie) la 
un obiect (structură de date ce ocupă mai multe adrese de 
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memorie) ce respectă specificaţiile clasei ContBancar (un şablon). 


1. Literatura anglo-saxonă foloseşte termenul „from scratch”, dar noi suntem latini, nfj-i aşa? 
4 (Next) 


Figura 21.31. Proprietate „data bound” (1) şi implicită (2) 


iii 
Name: |click 
Description: 
Occurs when 
the user 
presses and 
then releases a 
mouse button 
over 


Help Context ID: 


1.—i this Pa 
Procedure !D; 
j(None) [("joi 
1. Vezi Fotache, M., Baze de date relationale. Organizare, interogare şi normalizare, ediţia a Ii-a adăugită, Ed. Junimea, 
Iaşi, 1997, pp. 319-379. 
1. Pentru câmpurile de alt tip decât Text, dimensiunea maxima nu trebuie precizată (se va afişa automat dimensiunea în octeti: 8 pentru 


DateTime, 2 pentru Integer, 4 pentru Long etc.). 


